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SYNTHÉVOC 1 


□ moniteur couleur 


□ atmos.990 F 


% 


Le lecteur disquette conçu par ORIC FRANCE pour 
l'Atmos. 

□ lect disq. MICROOISC. 2290 F 


K> 





• Tète d'impression 9 aiguilles 

• Vitesse d'impression de 100 cps en mode listing 
et 16 cps en NLQ 

• Niveau de bruit inférieur à 52 dB 

• Entrainement du papier par friction ou traction 

• Plusieurs styles de caractères 

double largeur, gras, double frappe, compressé, italique, 
superscript, subscript, inverse et souligné 

• Marge et espacement ligne réglables par commandes 
logiciel. 

□ imprimante SEIKOSHA SP 180 . 2190F 


- 1 


Le ‘must’ pour les amateurs de graphisme Utilisée 
par la majorité des créateurs de logiciel ceQe tablette 
vous séduira par sa simplicité d'utilisation et la qualité 
‘top niveau’ des résultats obtenus (ex. options : faire 
des points, traits, boites, cercles, texte, remplir, "zoom". ) 
■.... 990 F 


Ügraphiscop 

INTERFACE 


Cette interface va cous permettre de transformer votre 
moniteur couleur en T V. 

□ interface T.V. 1490 F 



Spécialement conçu pour ORIC ce magnétophone vous évitera 
bien des soucis. 

f ] magnétophone 380 F 


PROMOTION logiciel ORIC 1 exclusivement 

pour 2 titres : 145 F pour 3 titres : 195 F pour 4 titres : 220 F pour 5 titres : 250 F 


□ trace dump 

□ oric mind 

□ guerre des couleurs 

□ ciros 

□ fromage 

□ |ogger 
□cal oric 


□ le lièvre et la tortue 

□ le monde végétal 

□ morpion 

□ dicodoric 

□ zig zag 

□ acheton s rage 

□ centipède 


□ gastronon 

□ oric munch 

□ facturation 

□ ultima zone 

□ pengonc 

□ finances 

□ copy écran (pour GP 100) 


□ calculus 

□ gestion bancaire 

□ budget familial 

□ caractor 

□ guerre des couleurs 


LOGICIELS CASSETTES 

Indiquez nous en le soulignant un (ou deux) titres de remplacement en cas de rupture de stock. 


□ tyrann 

185F 

□ davidact 

125F 

□ ludico . 

140 F 

□ vision. 

130 F 

C clovis 1 (Jeu d'echecs) 

150 F 

Ci macadam bumper (flipper) 165 F 

□ xénon 1 

105 F 


-«HH- 

□ méfiés toi de méphisto 

95 F 

□ zorgons revenge 

115F 

G colorie 

95 F 

□ metholoto. 

140 F 

□ oric base (anglais) 

125 F 

□ 0 bug (français). 

140 F 

□ microgéo. 

140 F 

□ orthocrack vol 1 

175 F 

r: oao. 

155 F 


-HHH- 

□ orthocrack vol 2 

175F 

G dam buster 

115 F 

G monlségur 

145 F 

□ orthocrack vol 3 

175F 

C damae (jeu dames) 

125 F 

□ mona . 

115 F 

□ oulimatic 1 

125 F 

□ dangereusement vôtre 

170F 

C mots croisés . 

120 F 

□ playground 21 

95 F 

D dedal 

110 F 

D musirama 

140 F 

□ rabiul 

105 F 

O détective story . 

160 F 

□ nessy 

95 F 

□ rat splat 

105 F 

□ dialogue 

125 F 

□ formule 1 . 

140 F 

□ saga 

150F 

C digger 

100 F 

G galaxian 

115 F 

□ starter 30 

135 F 

C dit..? d'ac! (sc. nat 5e) 

95 F 

□ gestion de stock. 

145 F 

□ System’ animation . 

140 F 

□ dit..? d'ac! (sys auteur) 

95 F 

G ghost gobbler 

105 F 

□ teknis 

125 F 

□ don juan . 

150 F 

□ gubbie 

115F 

□ terminus. 

125 F 

D don t press letter Q 

120F 

□ msect msamty 

100 F 

□ triathlon 

155F 

D dossier G . 

145 F 

□ intox et zoé . 

140 F 

□ le 1er d amnukor. 

195 F 

□ draughts 

100 F 

D karaté . 

110 F 

□ le général. 

120 F 

CT élysecs 

145 F 

G l'aigle d'or . 

180 F 

H le masque d'or 

155 F 

t '30 fongus - 

-UOf- 

1 la cité de cristal _ 

150 F 

□ nowotmck puuzzle 

100 F 

il a.t.m. 

135 F 

□ la flûte inca . 

125 F 

□ lissage de courbes 

125 F 

.annuaire. 

125 F 

G backgammon 

125 F 

□ locus 

105 F 

l assimil (anglais 

275 F 

□ weounter- 


l iassembl Symbol 

,145F 

basic etendu 

135 F 

G catégorie 

110 F 

U master paint 

145 F 

C brique à brac 

110F 

D cheops . 

140 F 

□ probe 3 . 

100F 

G business man 

145 F 

□ hades Iassembl). 

175F 



LIVRES 




□ oric et son micro procès 

95 F 

C commum avec oric — 

145 F 

□ Toric à nu . 

151 F 

i ■ program pour <*te- 


G interfaces pour oric . 

59 F 

G nouveaux jeux atmos 

88 F 


■ man u el-rei H - 

■ ■ moooe ) te l T2 ■ 


t ■ j oux en bos i e o 


-W 


■ 56 progr sur em-WFF* 

□ T DOS et ses fichiers 185 F 

□ apprenez élecl. sur oric 110F 

PROMOTION 


□ jeux graph atmos 95 F 

□ mieux program sur oric 110 F 


□ lot n° 1 : triathlon 

-445-r 

O lot n° 3 : ludico 

-484T 

macad bumper (flip.) 
terminus (aventure) 

250 F 

metholoto 

DAO 

325 F 

□lot n° 2 karaté 


□ lot n # 4 : clovis 1 (échecs) 

-4-HrT 

hadès 

terminus (aventure) 

260 F 

musirama 
outimatic 1 

315 F 


pour l'achat de 2 lots: 5 % de remise 
pour l'achat de 4 lots: 10 % de remise 


Il ne lui manque que la parole - , synlhé V0C1 la lui donne ! 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard qu'un politicien en 
rampant** 1 

.eut vocal 360 F 


Rallonge Péntel 
Ne soyez plus collé â l'écran (prise OIN à 6 broches) 
□ rallonge péntel.. 95 F 


□joystick switch joy .185 F 



Interface tous jeux 

Grâce â cet interface programmable vous utili¬ 
serez vos |oysticks avec tous vos logiciels de jeux 

□ interface joystick tous jeux. 365F 


□ joystick compétition 
PR05000 ... 170 F 



□blocalim ORIC.180 F 

□alim. 12V pour péritel. 75 F 

□rallonge de bus 1 slot .140 F 

Cassettes vierges C20 

□ les 5. 45 F 

□ les 10 80 F 

□ câble imprimante. .160 F 

□ stylosMCP40 . 75 F 

□ rouleaux papier MCP40(par4). 75 F 

□ disquette 3". 31F 

□ disquette 3* (par 10). 275 F 



OFFRE SPECIALE ! 


Nous reprenons 500 F votre 
l'achat d'un ATARI 520 STF 

Que vous rwhrrrtms u<n* premier miao ou 
que vous ava emie de franchir une étape dtaw 
aiprts amr débuté avec un nooTKifihnaîrur S bas. 

1 1> I Atari 520 STF. C»st une valeur sire. 

FJu ordinateur de Tarrtv aux USA. devenu 
rapidement le hea sdfcr de U rwcio en ABemajyie. 
ijéyi pWttoté m France, r Atari 520 STFm 
Tonbrutiur le plus innovateur du marche. 

Ceàâ dont vous tirera le maximum de ptarsr. 

Avec ï Atari 520 STF. vous aflez de 
révéla**» en lévélatm. 

Piossance tonradaMe avtc une ILC. de 520 Ko. 

Karité (fuûfasat>m avec ta sauts et le svstème 
daqüutxxi CFM. 


ORIC 1 ou ATMOS* pour 
avec moniteur monochrome 

Confort duttaabnn avec le multifenéliage. 

fVdormancxs qraphupi» acepOonnriks. 

Richesse d'une paMte de 512 couleurs. 

Capacités semons éclatantes et interface MIDI 
Bien if autres révétabnra vous attendent aux 
commandes de votre ordinateur. 

Y.Atari 520 STF. c'est le paphisme dans 
toute « finesse, ta couleur dans toute sa splendeur, 
la musqué dans tout son édaL. 

Créativité ou rtrréaùnn. t A tari 520 STF. 
c'est la rracro plastr dans toutes ses dimenàons 


'IMPORTANT : Ne pourront être repris que les appareils accompagnés de leur prise péritel et du bloc alimentation de l'ordinateur. 
□ ATARI 520 STF+ moniteurmonochrome : 4990 F - 500 F .4490 F 

COMMENT COMMANDER : Je possède ORIC 1 ATMOS 

Cocher le(s) arlicle(s) desire(s) ou lailesen une Itslesur une leuillea pan Fades le total-* Iraisdeporl (20Fpour achats infeneursaSOOF, 40 F de500a 1000 F, 60 F pour toulachatsupêneuta 1000 F-SOFpour 
tout achat supérieur a 2000 F). 

NOM_PRENOM :_ TEL :_ 

ADRESSE :_CODE POSTAL : _VILLE : _ 


Mode de paiement : □ chèque □ mandat □ contre-remboursement (prévoir 20 F de frais) 

envoyer le tout à : ORDIVIDUEL 20, rue de Montreuil 94300 VINCENNES 


réseau eeeeh 


mm&m 
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L ^ éditorial et l'actualité du précédent numéro provoquèrent 
réactions, souvent de sympathie mais parfois inattendues ! 

Dans un premier temps il ne faut pas confondre. ORIC International 
est une entreprise, SORACOM une autre et elles n'ont aucun lien si ce n'est de 
travailler sur le même créneau. Lorsque le rédacteur écrit qu'ORIC peut aller 


mieux, vous vous doutez bien qu'il ne pensait qu'à l'appareil, celui-ci, n'étant 
plus porteur sur le marché. Les concepteurs de logiciels ont abandonné toute 
mise en chantier de nouveaux produits. Quant aux éditeurs ils ont bradé et bien 
souvent mis au pilon les ouvrages. 

Nous qui voyons passer les petites annonces, nous nous rendons bien compte que 
l'Oricien change de machine. 

C'est parce que nous savons qu'il existe encore de nombreux possesseurs d'Oric- 
Atmos que nous avons proposé l'autre formule souvent utilisée dans la presse 
professionnelle. 

Avez-vous remarqué en début d'année le nombre de titres informatique dédiés à 
une machine et qui disparaissent ? 

Mettre Théorie dans les boutiques "revendeurs seuls" ? Merci nous l'avons déjà 
fait et ne le referons jamais. La chute des ventes, plus de 50 % depuis le 31112/86, 
nous obligeait à prendre une décision que la passion condamne mais que la raison 
ordonne. 


S. FAUREZ 

Directeur de Publication 
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ACTUALITES 


TELSTAR : un serveur 
amateur honorable 

Si vous habitez sur Paris (ou en pro¬ 
vince mais à condition de ne pas 
craindre la facture !), faites un petit 
tour sur le serveur TELESTRAT 
"TELSTAR" ouvert entre 8 et 
18Hau(16.1) 42.28.07.77 
Vous y trouverez des informations, 
et même une rubrique Théorie, des 
trucs et astuces et quelques logi¬ 
ciels à télécharger. Le sysop a bien 
fait les choses en sortant de la ba¬ 
nalité. Qu'il soit félicité ! 


L'AEDIT vous informe 

L'objectif de l'AEDIT est le déve¬ 
loppement de la télématique. Outre 
l'organisation de stages et de ren¬ 
contres pendant lesquels vous se¬ 
ront dispensés conseils et assistan¬ 
ce en création télématique, l'AE- 
DIT édite le "Journal de TELE¬ 
TIC" dans lequel les passionnés 
du Sud-Est pourront découvrir les 
principaux serveurs Télestrat de 
leur région, associatifs ou privés. 

Si vous êtes du coin, contactez-les 
au: 

93.92.21.91 ou 93.85.53.36 
Ou encore, en utilisant le Minitel au 
93.62.44.88. Ce serveur, est 
comme il se doit, un bon vieux Té¬ 
lestrat ! 

Et si enfin, vous voulez faire connaî¬ 
tre votre serveur, vous pouvez tou¬ 
jours l'inscrire dans la liste du guide 
R TC sur 3615 + CL UBA code : TIC 

Serveur MHZ 


Puisque nous en sommes aux ser¬ 
veurs, nous vous rappelons que 
vous pouvez contacter la rédaction 
de Théorie par le 3615 code 



MIW : des applications Minitel 


Nous avons succinctement présenté dans un précédent THEORIC, la 
"petite boîte MIW" qui rendait plus confortable l'utilisation du Minitel. 

MIW vient de développer une nouvelle application, dont nous espé¬ 
rons publier un banc d'essais plus complet dans un prochain numéro, 
et qui a été baptisée "M EM TEL" pour MEMorisateur d'écrans miniTEL. 
La mémoire est de 32 Ko, sauvegardée par batterie interne. 

Les caractéristiques de MEMTEL sont les suivantes : 


- Mémorisation d'une trentaine d’écrans Minitel sur un numéro d’écran figé et décidé 
d'avance par l'utilisateur ; 

- Consultation des écrans individuellement ; 

- Quatre journaux cycliques. L Utilisateur décide des écrans qu'il veut voir défiler dans 
chaque journal ; 

- Edition d'écrans avec attribut de caractère normal, inverse vidéo et double taille ; 

- Protection par sauvegarde des écrans avec un contenu particulier ; 

- Toute la gestion des écrans et des journaux cycliques est paramétrable par 
l'utilisateur ; 

- Téléchargement des écrans par un serveur ; 

- Dix séquences de transmission automatique. Ces séquences sont préparées par 
l'utilisateur et peuvent contenir des touches de fonctions du Minitel et des 
temporisations. Fini le temps perdu à retaper sa réponse x fois ! 

- Impression d'écrans sur imprimante vidéotext PENBOX ou autre ; 

- Déconnexion automatique au serveur après le temps prévu. 


Le MEMTEL permet de multiples applications du Minitel comme par 
exemple, animation d'une vitrine grâce au journal cyclique, outil de pu¬ 
blicité pour les représentants, etc. 

MEMTEL est commercialisée au prix de 1300 F HT. 

Pour tout renseignement contactez MIW en vous recommandant de 
THEORIC. Tél. 1.42.00.99.75 


MHZ. Ouvrez une BAL (c'est extrê¬ 
mement simple) et adressez vos 
messages à la BAL SORACOM. 
Nous répondons sous 24 ou 48 H 
maximum. 


Depuis la mise en place du nou¬ 
veau serveur, pendant l'été 87, 
nous animons également un "fo¬ 
rum", les mercredi de 10 à 11 H et 
15 à 16 H et vendredi de 10 à 11 H. 
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Vous pouvez ainsi poser vos ques¬ 
tions techniques ou faire vos remar¬ 
ques à la Rédaction. (Choisir "Dialo¬ 
gue en direct"). 

Enfin, n'oubliez pas que sur le ser¬ 
veur, vous disposez du sommaire 
de Théorie, de quelques flashes 
d'actualité, et des ... Euphorie 
quand il y en a! 

Quand "ça ne passe pas" au télé¬ 
phone, ayez le réflexe Minitel 

3615 code MHZ 


Des disquettes 3" bon 
marché 


En province, l'approvisionnement 
en disquettes 3" est souvent pro¬ 
blématique. Nous avons pensé à 
nos lecteurs et sommes en mesure 
de proposer des disquettes 3", par 
lot de 10, livrées avec leurs pochet¬ 
tes cartonnées, pour 270 F fran¬ 
co de port.Pensez-y et évitez ain¬ 
si les déplacements inutiles ! 
Consultez les publicités "Bretagne 
Edit'Press"... 


THEORIC : quelle suite ? 

Dans l'édito du N° 34 de THEORIC. 
nous vous avons expliqué la néces¬ 
sité de s'abonner à la revue. Il nous 
faut 4000 abonnements avant 
la fin de l’année faute de quoi 
THEORIC cessera de paraître. Si le 
nombre d'abonnés est atteint, la re¬ 
vue sera retirée des kiosques et ne 
sera plus vendue que sur abonne¬ 
ment. 

Conclusion : abonnez-vous vite ! 


SONDAGE mensuel 


Devant votre manque de courage 
pour écrire et aussi peut-être, le re¬ 
fus de mutiler la revue, nous suppri¬ 
mons désormais le sondage men¬ 
suel qui devait nous aider à mieux 
cerner vos besoins. Pour la cin¬ 
quantaine de fidèles qui ren¬ 
voyaient chaque mois leur bulletin, 
il reste le Minitel. Utilisez les BAL du 
serveur MHZ pour nous donner 
votre avis sur les articles publiés 
dans THEORIC. 



Abonnements/Réabonnements à Théorie 

Pour faciliter vos abonnements ou vos réabonnements à Théorie, 
nous avons composé une grille (que nos abonnés ont reçu ou vont re¬ 
cevoir par courrier), que nous reproduisons ci-dessous. 

Le principe retenu consiste à ramener toutes les fins d'abonnement 
au n° 48 de Théorie, qui paraîtra en décembre 1988. En fonction de la 
date de fin de son abonnement actuel ou d'un nouvel abonnement, 
chacun pourra déterminer la somme à verser pour s'abonner jusqu'au 
n°48. 

ATTENTION ! Il n‘y a plus d'abonnement 6 mois ou 1 an mais des 
abonnements jusqu'au n° 48. 

Pour que tout soit clair, prenons un exemple. (Suivez-le sur la grille). 
M.STRATOS de Puces-les-Electrons est abonné jusqu'au n° 39 inclus 
et désire se réabonner. Il devra payer, pour recevoir les 9 numéros 40 
à 48 la somme de 192 F. 

NOTEZ BIEN ! On ne peut pas s'abonner à partir d'un numéro déjà 
paru : il n'y a pas d'abonnement rétroactif. 


M. STRATOS 
est abonné jusqu'au 
n° 39 


Il se réabonne 
jusqu'au n°48 (c'est 
obligatoire). Il recevra 
9 numéros. 


Il devra payer 
192 F 
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STRATORIC gratuit 


ATTENTION l'offre qui était valable 
jusqu'au 30 septembre (STRATO¬ 
RIC gratuit pour l'achat d'un Téles- 
trat) n'est pas assurée par THEO- 
RIC mais par ORIC INTERNATIO¬ 
NAL. Il est donc inutile de nous 
écrire à la rédaction, comme cer¬ 
tains l'ont fait, pour obtenir le STRA¬ 
TORIC ! 



Dans le numéro 33 de Théorie, 
les légendes des listings de 
compactage et décompactage 
d'écrans HIRES ont été malen¬ 
contreusement interverties. 

Avec toutes nos excuses à l'au¬ 
teur et à nos lecteurs. 



gERVEURS TELESTRAJ 1 

THEORIC vous propose une liste d'une quarantaine de serveurs sur 

Télestrat. Tous ces serveurs étaient en fonctionnement début septem- 

bre 1987. 



Bien entendu, beaucoup de serveurs Télestrat ne sont pas dans cette 

liste, il s'agit notamment des serveurs professionnels, ou des nom- 

breux serveurs en préparation ou en phase de test. 

Si vous voulez figurer dans cette liste, écrivez au journal, ou laissez un 

message dans la bal THEORIC (36 

15 MHZ) ou sur le serveur ORIC 

(1)428122 72). 



APPUCATEL 

16 21.20.39.00 

Société de transports routiers 

ATI LA 

16.40.70.08.07 

Rens.St. Nazaire liste ass, radios 

AZTEL 

16 35 56 06 56 

Info municipal sur Auzouville 

CUISTEL 

16.44.85 71.11 

Rens ville de Cuise-la-Motte 

DIAT 1 TEL 

même numéro 

Activités, ciné, jeux, BAL... 

IMMO 

même numéro 

Annonces immobilières 

BLEU CIEL 

16 21 31.16 00 

Magasin informatique 

CAIMAGE 

(1J.47.70.08 79 

Réalisation image pour minitel 

CAISA 

(1)78 00.00.03 

Serveur graphique 

CITY 

16.35.70 64 00 

BAL. jeux, forums... 

SURO même numéro 

Services pour malentendants de 



Normandie 

DAMNED 

(1) 48 54.15.16 

BAL .jeux, forums... 

DETECTIVES 

(1)45 22.89.89 

Renseignements sur la profession 

DIRECTIVES 

(1)42 68 07 49 

Société de créations relations 



publiques, création de serveurs 

DIRECT SERVICE 

(1)39.92.37 07 

Publicité 

ELUS 

(1)42.04 33.74 

BAL. jeux, télématique ... 

FERTIC 

(1)30 57.21.25 

Rub ferroviaire, jeux, bourse 



( 13h / 24 h) 

LECOMTE 

(1)39.64 35.87 

Magasin informatique 

LEO 

(1)46 06.05.46 

Spécialisé dans les actions 



publiques 

MESSTEL 

16.50.26 58 88 

BAL, jeux, téléchargement... 

MICRO CLUB 

(1)64 46 09 91 

Différentes activités d'un club 

MICRO E 

16.21 43.10.82 

Serveur d’une mairie 

MICRO H 

16.51.67.25 69 

Rens. tourisme ville Les Herbiers 

MICRO 2B 

16.95.65.08.80 

Magasin informatique 

MIDOTEL 

16.57 51 74.44 

Association sur la télématique 

NEXUS 

16.40 60.62.62 

SSCI. 

ORIC 

(1) 42 81.22.72 

Renseignement sur la société ORIC 

PARADIS 

16 45 69 81.48 

Bourse radioamateurs (9h / 3h) 

PINKY 

(1)45 03 37.32 

Micro informatique. BAL 

RYU 

16 61.25.36 65 

SSCI. 

SCOUTEL 

16 73 92 27 77 

Renseignement sur le soutisme 

STAR S 

(1)42 80 22 92 

Catalogue magasin de musique 

STRATS MOS 

16.93.08 28 44 

Ass Micro info télématique 

TEL ANNONCES 

16 679208.16 

Journal Télématique Actualisation 



d'mfos. annonces 

TELETIC 

16 93 62.44.88 

Club Commodore et Club Minitel 

TELSTAR 

(1)42.28.07.77 

Spécialisé Télestrat : Trucs, 



astuces... 



(8h/18h du lundi au vendredi) 

TITAN 1 

(1)30.32.20.45 

Rens Imprimerie Composition 

VISMO 

(1)43 38 00 29 

Catalogue magasin 

ZUP'TEL 

16 42 59 29.97 

Rens culturels sur Aix (Jazz, expo ). 
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DECEMBRE 1987 


ÏISTE DES REVENDEURS 


OBJECTIF 


Voici une sélection des principaux points de vente du matériel ORIC. 
Ces revendeurs ont été sélectionnés pour leur sérieux et leur compé¬ 
tence. 

Bien entendu, chacun dispose de toute la gamme ORIC (Atmos, Micro- 
disc, Télestrat) et pourra vous conseiller, vous procurer les dernières 
nouveautés etc. 

Beaucoup se sont spécialisés en Télématique et sont à même de réali¬ 
ser des applications Télématiques (serveurs, bornes de communica¬ 
tions...). 

Cette liste date du début septembre 1987. Elle est remise à jour conti¬ 
nuellement sur le serveur ORIC au (1) 42 81 22 72, et bien entendu 
vous pouvez toujours interroger ORIC au (1)42 8120 02. 

MUSTELEX 


7 rue de gênes 

VIDEO INFORMATIQUE 

SYSTEME 

13006 MARSEILLE 

(16)91.25.95.64 

15 Avenue Cusenier 

ORDIFACE 

25000 BESANCON 

(16)81 82.25.71 

Route de PARIS 

NEXUS 

35530 NOYAL A/ILAINE 

(16) 9900 5507 

35 avenue du bois d 1 Amour 

LA MICRO BOUTIQUE 

44500 LA BAULE 

(16) 40 42 84 20 

1 rue Paul Bezanson 

MICROMETZ 

57000 METZ 

(16)8775 41 56 

19 rue de la Fontaine 

B.B. PRYSC 

57000 METZ 

(16)87 75 3286 

16 av, Jean Jaurès 

APPLICATEL 

58160IMPHY 

(16)8638 3133 

93 rue Ftobert Aylé 

MICRO -ET 

62110 HENIN BEAUMONT 

(16)21 750909 

4, Square du grand Condé 

ORDIELEC 

62800 LIEVIN 

(16)21 70 1752 

19 rue Hyppolyte Flandnn 

ORIC International 

69001 LYON 

(16)78 28 2307 

35 rue Victor Massé 

AXES 

75009 PARIS 

(1)4281 2002 

La Cascade Chemin 



de Rigoumel 

ORDIVIDUEL 

83200 TOULON 

(16) 94 89 55 93 

20 rue de Montreuil 

94300 VINCENNES 

(1)43 28 2206 

TITAN 1 



18 rue des Génévriers 

LECOMTE 

95800 CERGY ST CHRISTOPHE 

(1)30 322045 

31 rue du Général de Gaulle 

95880 ENGHIEN 

(1)34 12 89 31 


4000 

ABONNES 

A 

THEORIC ! 



ABONNEZ 
VOUS VITE ! 


COMMANDE 

ANCIENS 

NUMEROS 

(valable jusqu'à 
épuisement des stocks) 

(Numéros 6 à 21_30 F pièce j 

(Numéros 11 (HS) 

(22 et suivants-25 F pièce | 

(Attention, numéros 
(épuisés : 1-2-3-4-5-7-8-9- 
14-26 

NOM 

(Prénom_| 

Adresse_ 


ICode postal_ 

■ville_ 

I Frais de port 7.40 F pour 1 revue 

10,90 F pour 2 revues 
15,40 F pour 3 et 4 revues 
22,00 F au-dessus 

|Ci-joint, chèque bancaire 
|ou postal de_F. 
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EASYTEXTE 


ASYTEXTE est un traitement de 
texte initialement conçu pour le 
lecteur Jasmin. Il vient d'être 
adapté au SEDORIC, par son auteur 
Alexandre GESP, bien connu des 
lecteurs de THEORIC. Il est donc 
compatible avec le Télestrat grâce à sa 
cartouche STRATORIC. 

Il est livré avec un manuel qui semble 
succinct au premier abord, mais qui se 
révèle à l'usage suffisamment complet 
et explicite, recourant souvent à des 
exemples. 

La disquette EASYTEXTE est (bien I) 
protégée, pratique hélas habituelle 
pour des programmes de ce niveau. 


Si vous possédez un SEDORIC, il 
faudra d'abord initialiser avec un 
SEDORIC, puis relancer la disquette 
EASYTEXTE, la disquette étant 
esclave. Avec STRATORIC, aucun 
problème puisque le DOS est en ROM. 
Petit détail irritant, mais il faut 
reconnaître qu'en tout, l'initialisation ne 
durera pas plus de 20 secondes... 

Au bout de quelques instants, 
EASYTEXTE affiche son écran d'aide 
principal (accessible par la suite à tout 
moment par Funct 1), vous proposant 
de charger un fichier, formater un texte 
ou de retourner à la saisie. 
EASYTEXTE permet la frappe au 
kilomètre, en ne marquant par des 
"Return " que les fins de paragraphe. Le 
formatage du texte ne sera fait 
qu'avant impression. 

La frappe se fait en insertion ou non 
(Ctrl I). Le déplacement à l'intérieur du 
texte se fait au moyen des touches 
fléchées. On peut se déplacer page par 
page grâce à la touche SHIFT, ou aller 
directement à la fin ou au début du 
texte en utilisant la touche Ctrl. 

Le seul inconvénient est un défaut qui 
date des toutes premières versions 
d'EASYTEXTE, et qui n'a été que 
partiellement corrigé, à savoir que le 
déplacement vertical a tendance à 
déplacer le curseur pour un oui ou pour 
un non à la fin de la ligne, ce qui est 
assez gênant. De même les 
déplacements page par page semblent 
sauter un nombre variable de ligne, il 
faut alors un oeil exercé pour retrouver 
le curseur, qui est de type "souligné", 
c'est-à-dire une petite barre horizontale 
au-dessous du caractère. Ces défauts 
ne sont pas très importants mais 
auraient sûrement pu être évités. 
L'écriture des lettres accentuées est 
directe pour les plus courantes 
(à,é,è,ù,ç), ou nécessite la pression de 


deux touches. Notons qu'EASYTEXTE 
est réalisé en haute résolution, toutes 
les lettres accentuées ainsi que de 
nombreux symboles sont affichés à 
l'écran en clair. 

Passons en revue les possibilité 
d'EASYTEXTE. 

EASYTEXTE offre la possibilité, grâce 
à des caractères de contrôle, de 
centrer des lignes, de les rejeter à 
droite, de créer intelligemment des 
indentations dans le texte. Vous 
pouvez aussi écrire en souligné ou 
double largeur (ou les deux I). 

On dispose de tabulations normales ou 
décimales (pour les chiffres), très 
efficaces quand on a saisi leur 
fonctionnement, pas simple au premier 
abord. 

Vous pouvez insérer des caractères de 
contrôle pour l'imprimante (en 
hexadécimal, très pratique) ou des 
arrêts, avec sonnerie s'il vous plait, 
pour l'impression feuille à feuille. 

Le menu accès disque (accessible par 
FUNCT2) permet de visualiser les 
fichiers disponibles, de lire et décrire le 
fichier, de rajouter au texte en mémoire 
un fichier disque ("merge"), d'effacer un 
texte. Il manque, et c'est dommage, la 
possibilité d'initialiser une disquette : 
c'est toujours quand on a un texte long 
à sauver qu'on n'a plus de disquette 
vierge ! 

Le menu autres commandes permet de 
travailler sur votre texte : déplacement, 
duplication ou suppression de blocs de 
texte, substitution et recherche de 
mots (ou groupe de mots). 
EASYTEXTE vous offre aussi un 
glossaire, très pratique pour mettre en 
mémoire des formules classiques ou 
des mots longs revenant souvent dans 
le texte (par exemple, ce banc d'essai 
ayant été écrit à l'origine avec 
EASYTEXTE, 'EASYTEXTE'a été 
placé dans le glossaire). Par la même 
occasion, vous pourrez définir le pied 
de page (formule qui sera répétée en 
bas de chaque page). 

Le menu de formatage permet, vous 
l'aurez deviné, de formater le texte 
avant impression. Le formatage peut 
être partiel (texte cadré à gauche), 
total (cadré à gauche et à droite). Le 
formatage est rapide, en tous cas 
incroyablement plus rapide quo sur les 
anciennes versions d'EASYTEXTE. 
Alexandre GESP a dû nous sortir un 
nouvel algorithme de derrière les 
fagots I 

Ce menu permet aussi de définir la 
largeur d'une ligne (de 0 à 132), la 
marge gauche, de fixer le numéro des 
pages etc. 


Venons en maintenant au morceau de 
bravoure de ce logiciel : la 
configuration. Elle se fait à trois 
niveaux : 

- redéfinition possible des 255 
caractères affichables à l'écran 

- adaptation à n'importe quelle 
imprimante 

• fixation des jeux de caractères et de 
l'imprimante disponibles à 
l'initialisation. 

EASYTEXTE vous offre en effet la 
possibilité de redéfinir les caractères, 
pour créer par exemple un logo, ou des 
symboles qui ne figureraient pas parmi 
les nombreux existant déjà. La 
redéfinition se fait en modifiant le 
fichier NORMAUX. TXT, avec 
EASYTEXTE bien entendu. Il y a ici du 
génie dans ce logiciel, cette possibilité 
est probablement unique au monde, 
n 'ayons pas peur des mots. 
EASYTEXTE vous offre de la même 
manière la possibilité de configurer 
votre imprimante, en modifiant le fichier 
COMPIBM. TXT. Vous pourrez ainsi 
imprimer même les caractères 
spéciaux que vous avez pu redéfinir, 
car vous pouvez facilement, pour 
chaque caractère le nécessitant, 
recourir au mode graphique de votre 
imprimante. 

Enfin, dernière possibilité rarissime, 
vous pouvez écrire très simplement en 
couleurs, et imprimer en couleurs si 
votre imprimante le permet. Effet 
garanti. 

Quelques regrets à propos du manuel : 
il lui manque un résumé des 
commandes et une liste des caractères 
affichables. Ces remarques sont 
tempérées par le fait que les écrans 
d'aide sont toujours disponibles. 

En conclusion, nous dirons que la 
maîtrise de ce puissant logiciel sera 
peut-être un petit peu longue, à cause 
du foisonnement de caractères de 
contrôle à utiliser. Il est vrai que les 
écrans d'aide secondent très utilement 
votre mémoire défaillante I 
A part quelques petits détails, 
EASYTEXTE est donc un excellent 
traitement de texte, qui pourrait en 
remontrer à beaucoup de logiciels dits 
"professionnels" tournant sur d'autres 
machines "professionnelles". Son prix 
est de plus modéré eu égard à ses 
riches possibilités. Il ne lui manque que 
80 colonnes mais là, ce n’est pas sa 
faute ! 

■ LOGICIEL sur Disquette pour 
Microdisc ou Télestrat plus 
STRATORIC, 390 Francs chez 
ORIC International ou ses 
distributeurs. 
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SOSVAR 

Ou comment retoucher un 
programme sans perte 
des variables... 


Claude GUILLOT 



ne erreur de syntaxe ? Une ligne en trop ? Une ligne oubliée?... Et voilà après 
correction nos belles variables envolées ! 

SOSVAR vous aidera dans beaucoup de cas à vous en sortir ! 


Le programme en langage machine 
est entièrement relogeable. Il faut 
une place de 80 octets (et peut- 
être prévoir le HIMEM nécessaire). 
Etant donné sa brièveté, il peut 
être intéressant d'en faire plusieurs 
versions à des adresses différen¬ 
tes. 

Mode d'emploi 

Une correction à faire ?... Une inser¬ 
tion ?... une suppression ?... Une 
SOSVAR étant chargé, faire 

- CALL adr. d'implantation 

- Corrigez 

- Faire CALL adr. d'impl. + #21 

et voilà, ça repart (pas par un RUNü) 

RESTRICTIONS 

Si l'erreur a lieu dans une boucle re¬ 
partez au FOR (les autres variables 
ne sont pas perdues) 

Vous ne devez pas (risque de plan¬ 
tage) écrire de numéro de ligne su¬ 
périeur au dernier de votre program¬ 
me. (Pour remédier à cet inconvé¬ 
nient on peut prévoir une ligne par 
ex: 63000 REM) 

Ce programme fonctionne aussi 
bien sur ATMOS que sur ORIC 1. 
Le BASIC d'implantation donne 
des renseignements utiles à la sau¬ 
vegarde et au fonctionnement. Les 
lignes DATAS sont vérifiées. 

Attention à ne pas chercher à l'im¬ 
planter à une adresse fantaisiste ou 
gênante... le programme ne teste 
pas la validité de votre proposition. 


Si vous vous apercevez de votre er- (ce qui lance l'implantation) mais sur 
reur, n'appuyez pas sur RETURN une toute autre touche. 


10 WUtttWttUttlttttUltîtt 
23 REMi SOSVAR C.GUILLOT 1 
30 REMi t 

40 REH? ATM0E ou 0RIC1 t 
50 sowttmtmmmmmt 
60 ; 

70 CLSiFAPERO. INK2-. PRINTCHRi (17) 

80 PRINTCHRI',27)"A ttt SOSVAR ttt ...*:PRINT 
?û PRINT*Permet d'effectuer des retouches a" 

100 PRINT"un programme sans perte des variables." 

110 PRINT : PRINT : PRINT * SOSVAR est entièrement relogeable" 

115 PRINT'Il faut 80 octet5’:PRiNT:PRINT;PRINT"Adresse d'implantation" 

120 PRINT" (avec I' si hexa>" : PRINT : PRINT : INPUT" -> " ADI 

130 AD=VAL!AD$):!FAD=ûTKENPRINT“er, Hexa. tapez i xxxx" :WAIT200:G0T0120 

140 PRINT:PRINT"OK mais attention je ne contrôle pas ";A1=AD 

150 PRINT"si cette adresse est valide":PRINT:PRINT’adr;"ADHEXK AD) : PRINT 

160 PRINT”Tapez /RETURN/ pour démarrer" GETTI:IFTIvCHRK 13ITHENEND 

170 PRINT:PRINT"Je charge..." 

180 F0RD=0T04:T=0 

190 FCRI=0TOî5 :READAl.A=VAL("»"+AIi:T=T?A :POKEAD,A :AD-AD+1 :NEXT 
200 READS : I FS < •■ T THENP1NG : PR I NT ‘ ERREUR DATA” :END 
210 NEXT 

220 CLS PRINÎ“Tout va bien':PRINT:PRINT"Vous pouvez sauver le L.MVPRINI 
230 PRINT "Far CSAVE"CHRI'34;"SÜSVAR*CHRi(34)*,A"HEXt(Ai>\E"HEXI':ADi\iAUTO)" 
240 PRINT : PRINT’Fa i re CALL'HEXHAD'PRINT"... retouchez le programme" PRINT 
250 PRINT’Puis CALL’HEXI(Al?»21):PRINT"...et repartez par un GOTO".PRINTCHRI<17 

260 DATAA5.9C,A6,9D,85,00,8M1,A5,9E,A6,9F,85,02,86,03,1B32 
270 DATAA5.A0.Ac.Al ,85,04,86,05,85,9C.85,9E,8o.90,86,9F.20^2 
260 DAIA60.38,A5,A0,E5,04,85,06,A5,01,E5,05.85.07,18,A5,1578 
290 DATA00.65,06,85,9C,A5,01.65,07,85,90,18,A5,02,65,06,1258 
300 DATA85.9E,A5,O3.65,O7,85,9F,60 ,û0,0O,O0,ÛO,OO,0O,OO,955 
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ULA HCS 10017 : 

LE SOFT 


Fabrice BROCHE 


L 'ULA HCS 10017 dirige votre ORIC favori. Nous allons nous 
intéresser à sa programmation. 

Quid ? programmer une ULA ? Certes, le terme est un peu 
abusif, mais pas si faux que celà. En effet l'ULA est aussi un contrôleur 
d'écran très sophistiqué, puisque capable d'un mode texte et d'un mode 
haute-résolution. 

Sa programmation ne consiste pas à lui écrire un programme (qu’elle se¬ 
rait bien en peine d'exécuter !) mais à placer dans la zone écran des ca¬ 
ractères de contrôle qui lui indiqueront son mode, les attributs de cou¬ 
leur etc. 


L’ULA s'occupe particulèrcment de trois zones mémoires : 

- elle décode la zone #300-#3FF pour les entrées-sorties, 

- elle décode la zone #C000-#FFFF pour l'utilisation de la 
ram interne, 

-elle gère de manière assez complexe la zone #9800- 
#BFDF pour générer l'écran. 

Nous allons donc nous attacher à ce dernier point. 

Voici la répartition de cette zone mémoire : 


TEXT HIRES 


B500 à B7FF 


9900 à 9BFF description caractères 
normaux 


B800 à B8FF 9C00à9CFF 
B900 à BB7F 9D00 à 9FFF 
■ A000 à FB3F 


BF40 à BF67 


inutilisés 

description caractères alternés 
écran haute résolution 
zone inutilisée 


BB80 à BFDF BF68 à BFDF écran texte 


Voici la description des différentes zones : 

1 - Les zones description des caractères 

Le dessin des caractères (leur forme) est une suite de 8 oc¬ 
tets. En effet, les caractères occupent à l'écran 8 lignes de 6 
colonnes. 


Les six bits de poids faible de chaque octet de la définition 
contiennent le dessin d'une ligne (1 pour un point allumé, 0 
pour un point éteint). 

Les bits 6 et 7 sont inutilisés, et peuvent prendre des va¬ 
leurs quelconques. 

L'adresse de la définition d'un caractère s'obtient très facile¬ 
ment, par la formule : #B400+8*N en Tcxt, #9800+8*N 
en Hircs, où N est le code ASCII du caractère. 

En binaire, ceci donne : 

1011 01NN NNNN N000 pour le mode texte, caractères nor¬ 
maux 

1011 10NN NNNN N000 pour les caractères alternés 
1001 1 ANN NNNN N000 pour le mode haute résolution 

(A vaut 1 pour les caractères alternés, 0 sinon). 

Il est donc très facile à l'ULA de retrouver l'adresse d'un ca¬ 
ractère en fonction de son code. 

Voici par exemple la définition du caractère A normal, en 
mode TEXT: 


B608 xxOOlOOO 
B609 xxOIOIOO 
B60A xx100010 
B60B xxlOOOlO 
B60C xxl11110 
B60D xxlOOOlO 
B60E xxlOOOlO 
B60F xxOOOOOO 
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A noter : 

- les bits 6 et 7 inutilisés et sont donc quelconques 

- le bit 0 à 0 pour espacer horizontalement les caractères (fa¬ 
cultatif) 

- le dernier octet de définition vide lui aussi pour l'cspacc- 
ment vertical. 

2-La zone écran texte 


3 - Ecran haute résolution (HIRES) 

Là encore, les données sont de deux types : 

- les caractères de contrôle ou attributs 

- les dessins 

Les attributs ont la meme structure qu'en mode texte, mais 
un peu simplifié, certains attributs n'ayant plus cours : 


Elle est composée de deux types de données : 

- le code ASCII d'un caractère 

-des caractères de contrôle (ou attributs), qui "program¬ 
ment" 1TJLA. 

a) les attributs 

Les attributs sont de la forme (en binaire) : IOOx xxxx, il y 
en a donc 31. 

I est le bit de vidéo inverse. Quelle que soit la zone écran 
(Texte ou haute résolution), le bit 7 de chaque octet est le 
bit de vidéo inverse. 

Précisons le rôle de la vidéo inverse : h couleur de fond et la 
couleur de texte sont complémcntécs à 8. Ainsi, si F est la 
couleur de fond et T la couleur de texte, la nouvelle couleur 
de fond sera 7-F et la nouvelle couleur de texte sera 7-T. 
Cette interprétation de la vidéo inverse est différente de celle 
des normes vidéotex par exemple, où les couleurs de fond cl 
de texte sont simplement interchangées. 

Les caractères de contrôle sont visualisés comme des espa¬ 
ces. 

Voici le rôle des attributs : 

R V B désignent les couleurs rouges, vertes et bleues 
A = 0 pour jeu de caractère normal, 1 pour le jeu alterné 
F = 1 pour 50 Hz, 0 pour 60 Hz 
C = 0 pour fixe, 1 pour clignotant 
H = 0 pour normal, 1 pour double hauteur 
G = 0 pour le mode texte, 1 pour le mode haute résolution 
x valeur indifférente. 


1000 OBVR 

couleur des pixels allumés 

1000 lCxx 

clignotement W. 

1001 OBVR 

couleur des pixels éteints. 

1001 lGFx 

mode 


Les dessins sont représentés dans les 6 bits de poids faible, 
comme les dessins des caractères. 

Le bit 6 est à un pour les distinguer des attributs, et le bit 7 
règle toujours la vidéo inverse : 

HDD DDDD 

4 -Le basculement des fréquences 

L'ULA peut fonctionner aussi bien en mode 50 Hz qu’en 
mode 60 Hz (utile pour les USA ou le japon). 

Le mode 50 Hz/60 Hz est assez particulier : le dernier carac¬ 
tère définissant le mode dans la zone d'écran courant (#BB80- 
BFDF en Tcxt et #A000-#BFDF en haute résolution) fixe 
la fréquence. 

Ainsi, POKE #BB80,#18:POKE #BB81,#1A laisse l'écran 
en 50 Hz, alors que POKE #BB80,#1 A:POKE #BB80,#18 
passe l'écran en 60 Hz. 

La fréquence est mémorisée, de sorte qu'il ne suffit pas d'effa¬ 
cer l'écran pour repasser en 50 Hz, il faut replacer un attri¬ 
but 50 Hz. 

5 . - Le basculement des modes TEXT / 
MIRES 


Tous ces attributs sont valables jusqu'à la fin de la ligne ou 
jusqu'à un prochain attribut de même type. 


VALEUR 

ROLE 

1000 OBVR 

couleur de texte 

1000 1CHA 

précixc les attributs de double 
hauteur, clignotement et jeu de 
caractère 

1001 OBVR 

couleur de fond 

1001 lGFx 

précise le mode texte, haute 
résolution, 50 Hz ou 60 Hz 


b) les codes des caractères 

Les codes de #20 à #7F (#A0 à FF en vidéo inverse) sont 
les codes ASCII des caractères. 


Pour passer en mode Hircs, il faut que l'ULA trouve 1' attri¬ 
but Hires dans la zone écran texte (#BB80,#BFDF). 

L’écran passe alors en haute résolution jusqu’au prochain at¬ 
tribut TEXT ou jusqu'à l'adresse #BF3F. L'ULA balaye 
alors l'écran à partir de #A0O0. 

Le passage du jeu de caractère de #B400 à #9800 se fait de la 
façon suivante : 

- si il n'y a aucun attribut TEXT jusqu'en #BF3F, le jeu de 
caractère est pris en #9800 

- si un attribut TEXT est rencontré avant #BF3F, l'écran re¬ 
passe en TEXT dans sa partie basse (ce qui permet de faire 
des écrans mi-TEXT mi-HIRES), et le jeu de caractère est 
pris en #B400. 

Là encore, le mode est mémorisé et il ne suffit pas de suppri¬ 
mer l'attribut HIRES pour repasser en tcxic.Pour repasser en 
mode TEXT, il suffit de placer un attribut TEXT dans la zo¬ 
ne texte de l'écran (#BF68-#BFDF). 

Voilà donc un résumé "technique" de la programmation de 
l'ULA. Nous verrons une prochaine fois des exemples prati¬ 
ques. J'espère avoir éclairci quelques des zones d'ombres ... 
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Patrice GUERRIN 


I 


m lus de 8 jeux sur 10 paraissant dans des revues informatiques sont 
ÊJ dépourvus d'un tableau des meilleurs scores. Celui-ci est pourtant 
M indispensable à l'intérêt d'un bon jeu et, entre nous, ne me dites 
pas que vous n'éprouvez aucune fierté lorsque vous êtes en tête des 10 
meilleurs scores réalisés à un jeu I De plus, tous les logiciels du commerce 
en possèdent un. Son intérêt a donc été reconnu ! 



Alors pourquoi n'en voit-on jamais 
dans les jeux publiés ? 

Eh bien, il faut croire que c'est parce 
que les Oriciens ne savent pas com¬ 
ment procéder. Bon, alors les 8 sur 
10 qui ne savent pas, lisez la suite, 
et les deux autres, allez vous cou¬ 
cher ! 

Le listing HIGH-SCORES est un pro¬ 
gramme simulant un tableau des 
scores. Nous allons donc le com¬ 
menter de long en large, afin qu'il 
n'ait plus de secrets pour vous. 
Tout d'abord, nous aurons besoin de 
deux tableaux. Hl pour stocker les 
scores et NM§ pour stocker le nom 
de ceux qui auront réalisé ces sco¬ 
res. Les lignes 200 et 210 se char¬ 
gent de les dimensionner. Le tableau 
contiendra 10 éléments (de 0 à 9). 
Hl(0) contiendra le meilleur score (et 
son nom dans NM§(0), bien sûr) et 
le dernier score sera dans Hl(9). 
Après avoir dimensionné nos 
tableaux, il faut les remplir avec des 
valeurs de départ. C'est le rôle des 
lignes 260 et 270. 

Ensuite, de 300 à 400, on se charge 
de demander le nom du joueur. La 
ligne 305 sert à tirer un score au 
hasard, étant donné qu'il n'y a pas 
de jeu. 

En ligne 310, on dit que, si le score 
est inférieur au plus petit score du 
tableau, alors on ne demande pas le 


nom du joueur, mais on se contente 
d'afficher tous les scores. 

La ligne 320 vous demande votre 
nom qui est stocké dans NM§(10) et 
votre score dans Hl(10) en 340. En 
330, on limite le nombre de carac¬ 
tères du nom à 16. 

Voici maintenant la partie la plus 
délicate : le classement des scores 
du plus grand au plus petit. C'est le 
travail des lignes 350 à 440. 

Tout d'abord, vous savez que les 
scores sont rangés par ordre crois¬ 
sant dans Hl et NM§ de 0 à 9. Le 
score que vous venez de faire est 
dans Hl(10) et NM§(10). Pour vous 
permettre de comprendre comment 
on classe les scores, prenons un 
exemple numérique : 

Soit Hl(101 = 600, c'est-à-dire le 
score que vous venez de faire, et 
Hl(9)= 500, c'est-à dire le plus petit 
score du tableau. 

En 390, comme c'est la première 
fois que la boucle FOR NEXT s'exé¬ 
cute, I = 9. 

En 400, on dit que si Hl(9) est infé¬ 
rieur à HIO + 1), alors que cela 
devrait être le contraire, on va en 
420. Si l'on ne va pas en 420, c'est 
que les deux scores sont bien clas¬ 
sés dans l'ordre croissant, donc on 
continue... 

500 est bien inférieur à 600, donc 
on va être obligé d'échanger les pla¬ 


ces de 600 et de 500 dans le 
tableau. Le programme va donc en 
420. 

En 420, on donne à A la valeur de 
Hl(9), soit 500. 

Hl(9 + 1) = HI(9) transfère 600 à la 
place de 500. 

Hl(9 + 1 ) = A transfère 500 à la place 
de 600. 

Et l'on fait les mêmes transferts avec 
les noms en 430. 

La boucle va s'effectuer 9 fois, 
c'est-à-dire pour tous les éléments 
du tableau. Une fois cette boucle ter¬ 
minée, les scores seront classés, 
ainsi que les noms par ordre 
croissant. 

L'affichage à l'écran du tableau n'est 
pas très compliqué. C'est une bou¬ 
cle FORI = 0T09:?NM§(I);".''; 

HI(I):NEXT un peu améliorée. 

Je vous signale que si vous n'avez 
rien compris à ces excellentes expli¬ 
cations (enfoirés !), ce n'est pas 
grave. 

Le listing HIGH-SCORES est trans¬ 
portable sur vos jeux sans modifica¬ 
tions (sauf une : enlever la 
ligne 305). 

Voilà, vous n'aurez plus de problè¬ 
mes pour réaliser un tableau des 
scores. 

Et si je vois encore un jeu où il n'y 
en a pas, alors là, je... ! (CENSURE !). ► 
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100 REM- 

110 REM 

120 REM HIGH-SCORES 

130 REM 

140 REM- 

150 REM 

160 CLS:PAPERO: INK2 :POKE#26A,10:POKE4 
8035,0 

170 REM- 

180 REM DIMENSION DES TABLEAUX 

190 REM- 

200 DI MH 1(10) ' TABLEAU DES SCORES 
210 DIMNM*(10) ' TABLEAU DES NOMS 

220 REM- 

230 REM REMPLISSAGE DES TABLEAUX 

240 REM- 

250 REM 

260 FORI=0TO9: HI<I) = 1000-E*50:NM*(I) = 
"*** THEORIC ***" 

270 E=E +1 :NEXT 

280 REM- 

290 REM ENTREE DU NOM 

300 REM- 

305 SC=500+INT(RND<1>*510) 

310 I FSC <500THEN500 

320 FOR I = 1TO12 : PRI NT :NEXT:INPUT"VOTRE 
NOM:":NM*(10) 

330 IFLEN(NM*(10))>16THENPRINT"16 CAR 
ACTERES MAX IMUM": PING: WA IT300:CLS: GOTO 
320 

340 HI(10)=SC 


350 REM- 

360 REM CLASSEMENT DES HIGH-SCORES 

370 REM- 

380 REM 

390 F0RI=9T00STEP-1 

400 IFH 1(1)<H1(1 + 1)THENGOSUB4 20 

410 NEXT:GOT0500 

420 A=HI(I):HI<I>=HI<1+1>:HI<1+1>=A 
4 30 A*=NM* <I) : NM* <I)=NM*(I +1): NM*(I +1 
) =At 

440 RETURN 

500 REM- 

510 REM SORTIE DU TABLEAU DES SCORES 

520 REM- 

525 CLS:INK3:PLOT1,1,17:PL0T1,2,17 
530 PLOT2,1,10:PLOT2,2,10:PLOT10,1,"* 
** HIGH-SCORES ***" 

532 FORI = 4T022STEP2:PLOT31,I,2 :NEXT 
535 PLOT 10,2," *** HIGH-SCORES ***" 

540 E=0:FORI=4T020STEP2:PLOT3,I,49+E : 
E=E+1 :NEXT:PLOT2,22,"10 
545 FORI=4T020STEP2:PLOTS,I,:NEXT 
550 E=4 : FORI=0TO9 : PRINT<?7 ,E: NM* < I ) : E= 
E+2:NEXT 

555 F0RI=4T022STEP2:PLOT24,I,"." 

: NEXT 

560 E=4 : FORI =0TO9 : PRINTS“32 , E.: HI ( I ) : E= 
E+2:NEXT 
1000 PLOTS,25,1 

1010 PLOT7,25,"APPUYEZ SUR UNE TOUCHE 
": PLOT6,25,12 
1020 GETA*:CLS:END* 


ÏSEllILIST 


Ce court programme sert à vérifier les listings publiés dans THEORIC, dans lesquels apparaissent un nombre entre 
parenthèses, derrière le n° de ligne. Chargez-le à chaque fois que vous voudrez vérifier un listing ! 


Mode d'emploi 


— Taper VERILIST, le sauvegarder, 
faire RUN puis 

— CSAVE "VERILIST”,A # B300, 
E&B3E6 (il utilise l'espace HIRES, 
donc rester impérativement en mode 
TEXT tant qu'il sera en mémoire...) ; 

— Le listing du programme BASIC 
à vérifier étant en mémoire, taper 
CALL#B306 : les lignes apparais¬ 
sent à l'écran suivies de la somme 
de contrôle. Si vous possédez une 
imprimante, tapez CALL # B300 pour 
obtenir le listing. Comparez avec le 
listing publié dans THEORIC. 
ATTENTION ! Lorsque vous effec¬ 
tuez la saisie d'un listing de THEO¬ 
RIC, ne tapez surtout pas les nom¬ 
bres entre parenthèses situés der¬ 
rière les numéros de lignes. 


< 

&• 

F 

$3 


10 A=IB300:F=IB3E6:L=100 :REPEAT: FOR A-A TO A+15 :READ C» 

] 20 K^VALCf+CtJlS^K^SAtfS+^ASSSSHIF A<=F THEN POKE A,K 
30 NEXT:READ D* : IF S=VALPr*D1> THEN L=L*5:UNTIL A>F:END 
40 PING:PRINT'Erreur liqneVL 

i 100 DATA 20,16,C8,4E,F2,02,20,E8,00,20,E2,CA,20,B3,C6,EA,0797 

I105 DATA EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,A9, FT,160B 
110 DATA 85,33,85,34,A0,01,B1,CE,FO,56,20,62,C9.C9,20,DO,1DE6 
115 DATA OE,4E,DF,02,AD,DF,02,10,FB,20,62,C9,4E,DF,02,C8,24FE 
120 DATA B1,CE,AA,C8,B1,CE,C5,34,DO,04,E4,33,FO,02,BO,30,2E24 
125 DATA 84,B8,48,20,FO,CB,68,20,C5,EO,8A,48,20,CO,B3,68,3&7D 
130 DATA AA.EA.EA,A9,20,A4.B8,29,7F,20,D9,CC,C8,F0,11,B1,4007 
135 DATA CE,D0,1E,A8,BI,CE,AA,C8,B1,CE,86,CE,85,CF,DO,A4,4AF7 
140 DATA 2C,F2,02,10,01,60,20,F0,CB,20,2F,C8,68,68,4C,A8,513E 
145 DATA C4,10,D6,38,E9,7F,AA,84,B8,AO,00,A9,E9,85,18,A9,59E6 
150 DATA CO,85,19,CA,F0,OD,E6,18,D0,02,E6,19,B1,18,10,F6,61A9 
155 DATA 4C,A3,B3,C8,B1,18,30,AD,20,D9,CC,4C,B3,B3,04,EA,6A1E 
160 DATA A9,20,20,D9,CC,A9,28,20,D9,CC,AO,03,A2,00,8A,51,7162 
165 DATA CE,8C,BE,B3,18,6D,BE,B3,C8,AA,B1,CE,DO,FO,20,C5,7BB9 
170 DATA E0,A9,29,20,D9,CC,60,00,00,00,00,00,00,00,00,00,7F90 
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Michel DROUVOY 


C inq dés, une feuille de marque, tels sont les 
composantes de ce jeu, où le hasard et la 
stratégie sont les maîtres mots. Le tout 
orchestrer par votre OR1C préféré, voilà de quoi 
être satisfait. 




UN JEU 
POUR ORIC 
ATMOS 


BUT DU JEU 

Réaliser différentes combinaisons de 
points permettant de remplir les 12 
cases de la feuille de marque et obte¬ 
nir ainsi le total le plus élevé. 

MODE DE CHARGEMENT 

Charger le programme "YAM 
CHARGE". Celui-ci doit s'exécuter 
automatiquement (si le message "? 
Errors Found" apparaît, faire un 
RUNI. 

Ce petit chargeur a pour but de redé¬ 
finir les caractères et de loader les 
deux "fichiers”suivants, à savoir 
"YAM Ecran" et "Y A M". 

Si à la fin du chargement de l'écran 
de jeu "YAM Ecran" le message "? 
Errors Found" apparaît, ne pas en 
tenir compte, par contre s'il apparaît 
à la fin du chargement du pro¬ 
gramme de jeu "Y A M”, lancer 
l'exécution par RUN. 


COMMENT COPIER 
LES DIFFERENTS PROGRAMMES 

• Taper le petit programme BASIC 
"CHARGEUR YAM" et le sauvegar¬ 
der sur une cassette par : 

CSAVE "YAM CHARGE", AUTO 

• Taper le programme BASIC "YAM 
ECRAN". 

Effectuer une copie de sauvegarde 
BASIC si nécessaire sur une autre 
cassette. 

Faire RUN. Vous verrez apparaître en 
HIRES l'écran de jeu avec la feuille 
de marque. Une fois la page écran 
terminée, l'ORIC charge en mémoire 
cette page (entre les adresses 

• 5000 et # 6F65), ainsi qu'un petit 
chargeur en code machine. 

Lorsque le Ready réapparaît, effec¬ 
tuer une sauvegarde sur cassette, à 
la suite du programme "YAM 
CHARGE" de la mémoire, en 
faisant : 

CSAVE "YAM Ecran",A# 5000, 


E #6F65 

• Taper le troisième et dernier pro¬ 
gramme BASIC intitulé "Y A M". 
Une fois votre saisie terminée, sau¬ 
vegarder sur la cassette où se trouve 
déjà "YAM CHARGE" et "YAM 
Ecran”, à la suite, le programme 
par : 

CSAVE"Y A M",AUTO 

RECAPITULONS : 

Vous devez avoir sur la même cas¬ 
sette et dans l'ordre : 

"YAM CHARGE" (en AUTO) 
"YAM Ecran" (en code, de #5000 
à # 6F65) 

"Y A M" (en AUTO) 

DESCRIPTIFS DES PROGRAMMES 

YAM CHARGE : 

ligne 1 50 : initialisation de l'écran 
lignes 160-170: redéfinition des 
caractères 
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lignes 180-240 : affichage des com¬ 
mentaires 

lignes 250-280 : chargement de 
l'écran de jeu et du programme prin¬ 
cipal 

lignes 290-340 : DATAs pour la 
redéfinition des caractères. 

YAM Ecran : 

Ce programme réalise le dessin en 
haute résolution de la feuille de mar¬ 
que, des dés et implante un court 
programme en code machine pour 
permettre l'affichage instantané de 
la feuille de marque. 


10 REM 
20 REM 
30 REM 
40 REM 
50 REM 
60 REM 
70 REM 
80 REM 
90 REM 
100 REM 
110 REM 
120 REM 
130 REM 
MO : 

150 RELEASE:TEXT:CLS: PAPER 3:INK 0:PO 
KE 48035,0:P0KE 618,10 
160 FOR 1=1 T0 6:READ A :A=46080+(8tA) 
.B=A*7 

170 FOR J=A T0 B:READ C:P0KE J,C:NEXT 
J.I 

180 PRINT:PRINT:PR1NT:PRINT:PRINT:PR1 
NT : PRINT : PRINT : PRI NT : PR I NT 
190 PRINT ' CHARGEMENT DU JEU * 
CHR*(132) *Y A M- PRINT 
200 PRINT * METTEZ VOTRE MAGNET0PH 
ONE SUR" 

210 PRINT * LA POSITION < PLAY 
ET* 

220 PRINT * APPUYEZ SUR UNE TOU 
CHE.* 

230 GET RI 
240 : 

250 CL0AD ‘YAK Ecran* 

260 : 

270 CL0AD *Y A H* 

280 : 

290 DATA 37,8,4,28,2,30,34,30,0 
300 DATA 38,4.8.28,34.62,32.30,0 
310 DATA 92.16,8,28,34,62,32,30,0 
220 DATA 95.8,20,28.34,62,32,30,0 
330 DATA 123.9,20.28,34,34,34,28,0 
340 DATA 125.0,0,30,32.32,32,30.4# 


YAM: 

ligne 140-280 : écran de présenta¬ 
tion 

ligne 290-570 : musique de présen¬ 
tation 

ligne 580-910 : affichage du menu : 

— explication 

— jeu 

— quitter 

ligne 920-2180 : explication : 

— règle du jeu 

— utilisation de l'ORIC pour jouer 
ligne 2190-2310: quitter: cette 
partie du programme réinitialise tota¬ 
lement l'ORIC 



150 RELEASE: HIRES :CURSET 0,0,3:FILL 2 
00,1,22:CURSET 7,0.3:FILL 200,1,4 
160 CURSET 110,0,3:FILL 32,1,19:FILL 
100,1,18:PILL 68,1.17:CURSET 106,0,3 
170 FILL 24,1,0:FILL 8,1,1:FILL 100,1 
,0:FILL 68.1,4 
180 : 

190 rem : : : 

200 REM ! ' I Des; ir> du tableau 

210 rem : : : 

220 : 

230 CURSET 12,2,1:DRAW 0,100.1:DRAV 5 
6.0.1:DRAV 0,-100,1:DRAV -56,0,1 
240 FOR 1=4 TO 64 STEP 10 : CURSET 12,1 
,1 : DRAW 32,0,1:NEXT 
250 FOR I=o4 T0 100 STEP 12 :CURSET 12 
,1,1 : DRAW 82,0,1:CURMOV 0,2,1 
260 DRAW -82,0,1:NEXT 
270 FOR 1=14 T0 20:CURSET 1,4,1:DRAW 
0,60,1:NEXT 

280 CURSET 70,2,1:DRA¥ 0,100,1:DRAW 2 
4.0.1:DRAW 0.-100,1:DRAW -24,0,1 
290 CURSET 12,105,1:DRAW 0.76,1:DRAW 
56,0,1:DRAW 0,-76,l:DRAW -56,0,1 
300 FOR 1=107 T0 167 STEP 10 :CURSET 1 
2,1.1:DRAW 82.0,1:NEXT 
310 CURSET 12,169,1:DRAW 82,0,1:CURSE 


I CHARGEUR YAM 
! DR0UVRPY l HOUVER 
I } ORIC 1 ATHOS 


MO J 



ligne 2320-2800 : jeu : boucle prin¬ 
cipale 

ligne 2810-3730 : jeu : sous- 
programmes de contrôle 
ligne 3740-4270 : jeu : sous- 
programmes de dessin des dés 
ligne 4280-4630 : jeu : sous- 
programmes d'effacement 
ligne 4640-5100 : jeu : affichage 
des points dans le tableau et con¬ 
trôle de fin. 

COMPATIBILITE ORIC 1 - ATMOS 
SOUS RESERVE 


T 12,179.1 DRAW 82.0,1:CURSET 70,105,1 
320 DRAW 0,76,1 .'DRAW 24,0,1 : DRAW 0,-7 
6,1:DRAW -24,0,1 

330 FOR 1=14 TO 20:CURSET 1,107,1:DRA 
W 0,60,1 :NEXT 

340 CURSET 12,184,1.DRAW 0,14,1:DRAW 
56,0,1:DRAW 0,-14,1 : DRAW -56,0,1 
350 CURSET 12,186,1 .'DRAW 82,0,1 :CURSE 
T 12,196,1 DRAW 82,0,1 
360 CURSET 70.184,1 : DRAW 0,14,1:DRAW 
24,0,1 : DRAW 0,-14,l: DRAW -24,0.1 
370 PATTERN 85 

380 CURSET 12,3,1:DRAW 82,0,1:CURSET 
12,65,1:DRAW 82,0,1 
3°0 CURSET 12,77,1 : DRAW 82,0,1:CURSET 
12.89,1.DRAW 82,0,1 
400 CURSET 12,101,1 : DRAW 82,0,1:CURSE 
T 12,106,1 : DRAW 82,0,1 
410 CURSET 12,168,1:DRAW 82.0,1:CURSE 
T 12,180.1 : DRAW 82.0,1 
420 CURSET 12,185,1:DRAW 82,0,1:CURSE 
T 12,197,1;DRAW 82,0,1 
430 PATTERN 255 

440 CURSET 69,2,0:DRAW 0.196,0 
450 A$=*123456*:Y=6 
460 FOR J=1 T0 2 

470 FOR 1=1 T0 6:CURSET 15,Y+((1-1)tl 
0),3 : CHAR ASC(MIDI(Ai,1,1)),0,0:NEXT I 
480 Ai=*BPGFCY\Y=109 
490 NEXT J 

500 AI=*AS*:X=26:Y=6:GOSUB 670 
510 A1=*DEUX*:X=26:Y=16:GOSUB 670 
520 A*=“TROIS":X=26:Y=26:GOSUB 670 
530 A1=*QUATRE*:X=26:Y=36:GOSUB 670 
540 A»=*CINQ*:X=26:Y=46:GOSUB 670 
550 A$=*SIX*'X=26:Y=56:GOSUB 670 
560 A*=“Total“:X=15:Y=68:GOSUB 670 
570 Ai=*Total I“:X=15:Y=92:GOSUB 670 
580 A1=*RELAN‘:X=22:Y=109:GOSUB 670 
5<>0 A»=*te SUITE* : X=22 : Y=119 : GOSUB 67 

0 
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600 Al=*de SUITE’:X=22:Y=129:GOSUB 67 

0 

610 A1=’ULL’:X=22:Y=139:GOSUB 670 
620 A$=’ARRE’:X=22:Y=149 :GOSUB 670 
630 A$=’AM‘:X=22:Y=159:GOSUB 670 
640 Ai='Total I":X=15:Y=171:GOSUB 670 
650 At=’T OTA L" : X= 15 : Y= 188 : GOSUB 6 
70 

660 GOTO 700 

670 FOR 1 = 1 TO LENI A») 

680 A=ASC(HID$(A*,I,1)):1F A=32 THEN 
X=X-2 

690 CURSET X+((I-1)*6),Y;3:CHAR A,0,1 
: KEXT:RETURN 

700 CURSET 52,171,3:CHAR 73,0,1 
710 : 

720 rem : : : 

730 REM 1 ! 1 Dessin des des 

740 rem : : : 

750 : 

760 FOR 1=1 TO 5 

770 CURSET 92+111251,2,1 

780 DRAW -3,3,1 : DRAW 0,15,1:DRAW 3,3, 

1 : DRAW 15,0,1 : DRAW 3,-3,1:DRAW 0,-15,1 
790 DRAW -3,-3,1 : DRAW -15,0,1 
800 NEXT 
810 : 

820 rem : : : 

830 REM 1 ! l Inscription de YAM 

840 rem : : : 

850 : 

860 CURSET 118,140,1 'Y 
870 DRAW 11,0,1:CURMOV 1,1,1:DRAW -11 
,0,1: CURIfOV 1,1,1: DRAW 10,0,1 
880 CURMOV l,l,l:DRAW -11,0,1:CURMOV 
1,1,1:DRAW 10,0,1:CURMOV 1,1,1 
890 DRAW -10,0,1:CURMOV 0,1,1:DRAW 10 
,0,1 :CURMOV 1,1,1:DRAV -10,0,1 
900 CURMOV 1,1,1:DRAW 9,0,1:CURMOV l f> 
1,1:DRAW -10,0,1:CURMOV 1,1,1 
910 DRAW 9,0,1:CURMOV 1,1,1:DRAW -9,0 
,1 :CURMOV 0,1,1:DRAW 9,0,1 
920 CURMOV -1,1,1:DRAW -7,0,1 :CURMOV 
1,1,1:DRAW 6,0,1 :CURMOV -1,1,1 
930 DRAW -5,0,1:CURMOV 1,1,1:DRAW 4,0 
,1 :CURMOV -1,1,1:DRAW -2,0,1 
940 CURMOV 0,1,1:DRAW 2,0,1:CURM0V -1 
,1,1:CURMOV 0,1,1:CURMOV 12,-20,1 
950 DRAW 16,0,1:CURHOV -1,1,1:DRAW -1 
5,0,1:CURMOV -1,1,1:DRAW 15,0,1 
960 CURMOV -1,1,1:DRAW -14,0,1:CURNOV 
-1,1,1:DRAW 14,0,1 :CURMOV 0,1,1 
970 DRAW -14,0,1 :CURMOV -1,1,1 : DRAW 1 
4,0,1:CURMOV -1,1,1:DRAW -13,0,1 
980 CURMOV -1,1,1:DRAW 13,0,1:CURMOV 
-1,1,1:DRAW -12,0,1:CURMOV -1,1,1 
990 DRAW 12,0,1:CURHOV -1,1,1:DRAW -1 
1,6,1:CURMOV -1,1,1:DRAW 
1000 CURMOV -1,1,1:DRAW -12,0,1:CURMO 


V 0,1,1:DRAW 11,0,1:CURMOV 0,1,1 

1010 DRAW -12,0,1 :CURMOV 0,1,1:DRAW 1 
1,0,1:CURMOV -1,1,1:DRAW -11,0,1 
1020 CURMOV 0,1,1:DRAW 10,0,1:CURHOV 
-1,1,1:DRAW -10,0,1:CURMOV 0,1,1 
1030 DRAW 9,0,1:CURHOV -1,1,1 : DRAW -9 
,0,1:CURMOV 0,1,1:DRAW 9,0,1 
1040 CURMOV -1,1,1:DRAW -9,0,1 :CURMOV 
0,1,1:DRAW 8,0,1:CURMOV -1,1,1 
1050 DRAW -8,0,1:CURMOV 0,1,1:DRAW 7, 
0,1:CURMOV 0,1,1:DRAW -8,0,1 
1060 CURMOV -1,1,1:DRAW 8,0,1:CURMOV 
-l,l,l:DRAW -7,0,1:CURMOV -1,1,1 
1070 DRAW 7,0,1:CURMOV -1,1,1:DRAW -6 
,0,1:CURMOV -1,1,1:DRAW 6,0,1 
1080 CURMOV-1,1,1:DRAW -5,0,1 :CURMOV 
-1,1,1:DRAW 6,0,1:CURMOV -1,1,1 
1090 DRAW -5,0,1:CURMOV -1,1,1:DRAW 5 
,0,1:CURMOV -1,1,1:DRAW -4,0,1 
1100 CURMOV -1,1,1:DRAW 4,0,1:CURMOV 
-1,1,1:DRAW -3,0,1:CURHOV -1,1,1 
1110 DRAW 4,0,1:CURHOV -1,1,1:DRAW -3 
,0,1:CURMOV -1,1,1:DRAW 3,0,1 
1120 CURMOV -1,1,1:DRAW -2,0,1:CURMOV 
-1,1,1:DRAW 2,0,1 :CURMOV -1,1,1 
1130 DRAW -1,0,1:CURMOV -1,1,1:DRAW 2 
,0,1:CURMOV -1,1,1:DRAW -1,0,1 
1140 CURMOV -1,1,1:DRAW 1,0,1:CURM0V 
-1,1.1 rCURMOV 23,-25,1 .-CURMOV -1,1,1 
1150 DRAW 1,0,1:CURMOV 1,1,1: DRAW -3, 
0,1:CURMOV 0,1,1:DRAW 
1160 CURHOV 1,1,1:DRAW -5,0,t:CURHOV 
1,1,1:DRAW 4,0,1:CURMOV 1,1,1 
1170 DRAW -4,0,l:CURMOV 1,1,1:DRAW 3, 
0,1 :CURMOV 1,1,1:DRAW -4,0,1 
1180 CURMOV 1,1,1:DRAW 3,0,1:CURMOV 1 
,1,1:DRAW -3,0,1:CURMOV 1,1,1 
1190 DRAW 1,0,1 
1200 CURSET 169,140,1 ' A 

1210 DRAW 0,7,1:CURMOV -1,6,1:DRAW 0, 
-10,1:CURNOV -1,3,1 : DRAW 0,13,1 
1220 CURMOV -1,5,1:DRAW 0,-16,llCURMO 

V -1,3,1:DRAW 0,18,1:CURMOV -1,5,1 
1230 DRAW 0,-21,1 :CURHOV -1,3,1:DRAW 

0,24,1:CURMOV -1,6,1:DRAW 0,-28,1 
1240 CURMOV -1,2,1: DRAW 0,28,1 :CURHOV 
-1,0,1:DRAW 0,-26>l: CURHOV -1,2,1 
1250 DRAW 0,24,1:CURMOV -1,0,1 :DRAW 0 
,-21,1:CURHOV -1,3,1: DRAW 0,18,1 
1260 CURMOV - 1,0,1 : DRAW 0,-16,1:CURMO 

V -1,3,1:DRAW 0,13,1 : CURMOV -1,0,1 
1270 DRAW 0,-11,1 :CURMOV -1 .3,1.DRAW 

0,8,1:CURMOV -1,0,1 :DRAW 0,-6,l 
1280 CURMOV -1,3,1:DRAW 0,3,1:CURMOV 
-1,0,1:CURMOV 17,-47,1:CURMOV -1,1,1 
1290 DRAW 0,2,1:CURMOV -1,2,I:DRAW 0, 
-2,1.CURMOV -1,2,1.DRAW 0,3,1 
1300 CURMOV -1,2,1:DRAW 0,-4,1îCURMOV 
-1,1,1:DRAW 0,6,1:CURMOV -1 ,-l,I 


1310 DRAW 0,-4,1:CURMOV -1,2,1 :CURMOV 

8.9.1 : DRAW 0,2,1:CURMOV 1,1,1 

1320 DRAW 0,-9,l:CURMOV 1,-6,1 : DRAW 0 
,17,1:CURMOV 1,1,1:DRAW 0,-24,1 
1330 CURMOV 1,3,1:DRAW 0,23,1:CURMOV 
1,1,1:DRAW 0,-22,1:CURHOV 1,2,1 
1340 DRAW 0,21,1:CURMOV 1,1,1:DRAW 0, 
-20,1 :CURMOV 1,2,1:DRAW 0,19,1 
1350 CURMOV 1,1,1:DRAW 0,-18,1 :CURMOV 

1.2.1 :DRAW 0., 18,1:CURMOV 1,1,1 

1360 DRAW 0,-16,1:CURMOV 1,2,1:DRAW 0 
,15,1:CURMOV 1,1,1:DRAW 0,-13,1 
1370 CURMOV 1,3,1:DRAW 0,11,1:CURMOV 
1,1,1:DRAW 0,-10,1 :CURMOV 1,2,1 
1380 DRAW 0,9,1:CURNOV l,l,l:DRAW 0,- 
8,1:CURHOV 1,3,1:DRAW 0,6,1 
1390 CURHOV 1,1,1:DRAW 0,-5,1:CURMOV 
1,3,1:DRAW 0,3,1 :CURMOV 1,2,1 
1400 DRAW 0,-3,1:CURMOV 1,2,1:DRAW 0, 
2,1:CURHOV -2,-21,1:DRAW 0,5,1 
1410 CURMOV -1,0,1:DRAW 0,-7,1 :CURHOV 
-1,1,1:DRAW 0,6,1:CURMOV -1,-1,1 
1420 DRAW 0,-5,1:CURMOV -1,0,1:DRAW 0 
,3,1:CURMOV -l,-2,l:CURNOV -11,3,1 
1430 CURHOV 1,1,1:DRAW -5,0,1:CURMOV 
-2,1,1:DRAW 8,0,1:CURMOV 1,1,1 
1440 DRAW -9,0,1 :CURMOV 0,1,1:DRAW 10 
,0,1:CURMOV -1,1,1:DRAW -10,0,1 
1450 CURHOV 0,1,1:DRAW 1,0,1:CURMOV - 
13,-1,1 :CURHOV 0,1,1:DRAW -2,0,1 
1460 CURHOV 0,1,1:DRAW 2,0,1 
1470 CURSET 205,140,1 'H 
1480 DRAW 0,49,1:CURMOV -1,0,1:DRAW 0 
,-49,1 :CURMOV -1,5,1:DRAW 0,44,1 
1490 CURMOV -1,0,1 : DRAW 0,-39,1:CURHO 

V -1,5,1:DRAW 0,34,1:CURMOV -1,0,1 
1500 DRAW 0,-29,l:CURHOV -1,5,1:DRAW 

0,24,1:CURMOV -1,0,1:DRAW 0,-19,1 
1510 CURMOV -1,5,1: DRAW 0,14,1 :CURMOV 
-1,0,1:DRAW 0,-9,1ICURHOV -1,5,1 
1520 DRAW 0,4,1 :CURMOV 9,-51,1:DRAW - 
1,0,1:DRAW 0,1,1:CURHOV -1,1,1 
1530 DRAW 0,4,1 :CURMOV -1,5,1 : DRAW 0, 
-7,1 :CURMOV -1,3,1:DRAW 0,6,1 
1540 CURMOV -1,-1,1:DRAW 0,-2,1 :CURMO 

V 8,-5,1:DRAW 0,16,1:CURMOV 1,1,1 
1550 DRAW 0,-13,llCURHOV 1,3,1:DRAW 0 

,11,1:CURMOV l,l,l:DRAW 0,-10,1 
1560 CURMOV 1,2,1:DRAW 0,10,1:CURHOV 
1,1,1:DRAW 0,-9,l:CURHOV 1,3,1 
1570 DRAW 0,7,1 :CURMOV 1,1,1:DRAW 0,- 
6,1:CURHOV 1,3,1:DRAW 0,4,1 
1580 CURHOV 1,1,1:DRAW 0,-3,1 :CURMOV 
1,2,1:DRAW 0,2,llCURHOV 1,1,1 
1590 CURHOV 0,2,1:DRAW -1,0,1iCURMOV 
0,-1,1 : DRAW -2,0,1:CURHOV -2,-1,1 
1600 DRAW 3,0,1:CURHOV -l,-i,l:0RAW - 
4,0,1:CURN0V -1,-1,1 : DRAW 4,0,1 
1610 CURMOV -1,-l,1:DRAW -2,0,1:CURNO 
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V 0,-1,1 : DRAW 1,0,1:CURMOV 4,-4,1 
1620 DRAW 0,-6,l:CURMOV l,-2,l:DRAW 0 
,10,1 :CURMOV 1,2,1:DRAW 0,-14,l 
1630 CURMOV 1,-2,1 : DRAW 0,19,1:CURMOV 
1,-3,1 :DRAV 0,-18,1:CURNOV 1,-2,1 
1640 DRAW 0,17,1 :CURMOV 1,-3,1:DRAW 0 
,-10,1 :CURMOV 5,-13,1 : DRAW 2,0,1 
1650 CURMOV 1,-1,1:DRAW -2,0,1:CURMOV 
1,-1,1 :CURMOV -7,4.1:DRAW 0,2,1 
1660 CURMOV 1,8.1:DRAW 0,-10,1 :CURMOV 
1,0,1:DRAW 0,18,1:CURMOV 1,8,1 
1670 DRAW 0,-26,1:CURMOV 1.0,1:DRAW 0 
,34,1:CURMOV 1,8,1:DRAW 0,-42,1 
1680 CURMOV 1,0,1:DRAW 0,50,1:CURMOV 
1,0,1:DRAW 0,-50,l:CURMOV 1,0,1 
1690 DRAW 0,34,1:CURMOV 1,-15,1 : DRAW 
0,-19,1 :CURMOV 1,0,1 : DRAW 0,4,1 
1700 CURSET 215,159,1 : DRAW 0,1,1 
1710 : 

1720 rem : : : 

1730 REM 1 1 ! Inscription de 

1740 REM : : : DROUVROY ê. HOUVER 

1750 rem : : : 

1760 : 

1770 CURSET 116,125,1 
1780 DRAW 0.4,1:DRAW 1,0,1:DRAW 1,-1, 
1 :DRAV 0,-2,1 : DRAW -1,-1,1 
1790 CURMOV 3,0,1:DRAW 0.4,1:DRAW 2,- 
2,1 : DRAW 0,-1,1:DRAW -1,-l,1 
1800 CURMOV 1,4.1:CURMOV 3,0,1:DRAW 1 


,-1.1:DRAW 0,-2,1 : DRAW -1,-1,1 
1810 DRAW -1,1,1:DRAW 0,2,1:CURMOV 4, 
-3,1:DRAW 0,3,1:DRAW 1,1,1 
1820 DRAW 1,-1,1 :DRAV 0,-3,1:CURMOV 2 
,0,1:DRAW 0,2,1 : DRAW 1,1,1 
1830 DRAW 0,1,1:DRAW 0,-1,1 : DRAW 1,-1 
,1 : DRAW O,-2,1 :CURMOV 2,0,1 
1840 DRAW 0,4,1:DRAW 2,-2,l:DRAW 0,-1 
,1 : DRAW -1,-l,1ICURMOV 1,4,1 
1850 CURMOV 3,0,1:DRAW 1,-1,1 : DRAW 0, 
-2,1:DRAW -1,-1,1:DRAW -1,1,1 
1860 DRAW 0,2,1:CURMOV 4,-3,l:DRAW 0, 
1,1:DRAW 1,1,1:DRAW 0,2,1 
1870 DRAW 0,-2,1 .'DRAW 1, -1,1 : DRAW 0,- 

1,1 

1880 CURSET 150,125,1 
1890 DRAW l,-l,l:DRAW 1,1.1:DRAW -1,1 
,1 : DRAW 0,1,1:DRAW -1,1,1 
1900 DRAW 1,1,1:DRAW 2,-2,1 :CURMOV 0, 

2,1 

1910 CURSET 157,125,1 
1920 DRAW 0,4,1:CURMOV 1,-2,1:CURMOV 
1,-2,1:DRAW 0,4,1:CURMOV 3,0,1 
1930 DRAW 1,-l,1:DRAW 0,-2,1:DRAW -1, 
-l,l:DRAW -1,1,1:DRAW 0,2,1 
1940 CURMOV 4,-3,1 : DRAW 0,3,1 : DRAW 1, 
1,1:DRAW 1,-1,1:DRAW 0,-3,1 
1950 CURMOV 2,0,1:DRAW 0,2,1:DRAW 1,1 
,1 : DRAW 0,1,1:DRAW 0,-1,1 
1960 DRAW 1,-1,1 : DRAW 0,-2,1 :CURMOV 4 


,0,1:DRAW -2,0,1 : DRAW 0,4,1 
1970 DRAW 2,0,1:CURMOV -1,-2,1:CURMOV 
3,-2,1 : DRAW 0,4,1:DRAW 2,-2,1 
1980 DRAW 0,-1,1:DRAW -1,-l,1:CURMOV 

1,4,1 

1990 CURSET 219,124,1 
2000 DRAW -2,0,1 : DRAW -2,2,1:DRAW 0.2 
,1 : DRAW 2,2,1:DRAW 2,0,1 
2010 DRAW 2,-2,1 : DRAW 0,-2,1:DRAW -1, 

-1,1:DRAW -1,1,1:DRAW -2,0,1 
2020 DRAW 0,2,1:DRAW 2,0,1:CURMOV 6.- 
3,1:DRAW 0,4,1:CURMOV 2,0,1 
2030 DRAW 2,0,1 : DRAW 0,-4,1 : DRAW -2,0 
,1 : DRAW 0,2,1:DRAW 2,0,1 
2040 CURMOV 2,-2,1 : DRAW 0,4,1:DRAW 2, 

0,1:DRAW 0,-4,1:DRAW -2,0,1 
2050 CURMOV 1,2,1:CURMOV 5,-2,1 : DRAW ^ 
-2,0,1:DRAW 0,4,1:DRAW 2,0,1 
2060 DRAW 0,-2,1 : DRAW -2,0,1 QT 

2070 : 

2080 : > 

2090 J=0 _ 

2100 FOR IMA000 TO IBF3F STEP 2:DOhX 
(15025+J),DEEK(I):J=J+2:NEXT ^ 

2110 FOR 1=15000 TO 15024 :ftEADA*:POKE 
I,VALI*r+AI) :NEXT CO 

2120 DATA A2,00,BD,25,50,9D,00,AO, E6 . 

EO, FF, DO,06,EE,04.50,EE,07,50,AD,07,50 
2130 DATA C9,BF ,DO,05,EO, 3F ,DO,O1,60. 
B3.4C.02,50,EA.EA# <£ 


TRI 

RAPIDE 


TRUCS ETA: 



V oici un programme de TRI pour Télestrat, en 6 lignes seule¬ 
ment et pourtant très rapide. L’algorithme est connu sous 
le nom de SCHELL-METZER, et est très facilemement 
adaptable à l'Atmos. 

59210 ]TRI:NT=VNB-1:EC=NT 

59220 ]TO:EC=INT(EC/2) : IF EC >=1 THEN J=0:K=NT-EC ELSE RETURN 
59230 ]Tl : 1=J 

59240 ]T2:M=I+EC: IF A(I)<=A(M) THEN T3 

59250 A=A(I) :A(I)=A(M) : A(M)=A:I=I-EC: IF I>=0 THEN T2 
59260 ]T3:J=J+1: IF J>K THEN TO ELSE Tl 


Pour utiliser ce sous-programme, il 
suffit de dimensionner le tableau 
(DIM A(x)), d'initialiser la variable 
VNB avec le nombre de valeurs à 
trier , puis d'appeler le sous-pro¬ 
gramme : 


10 

DIM 

A(IOO) 

lOOO 

VNB= 

ÎOO 

1010 

TRI 



Pour transformer le programme en 
un tri sur des chaines, il suffit de 
remplacer tous les A() par des A$(). 
Voici quelques éléments de perfor¬ 
mance, qui feraient rougir la plupart 
des BASIC (nombre d'éléments à 
trier ~> temps en secondes): 


10 »> 0,5 400 «> 55,9 

50 —> 3,3 ÎOOO —> 2'40 

ÎOO -> 9,9 2600 -> 9 * 10 


Un avantage de ce type de tri est 
qu'il existe une formule permettant 
d'évaluer le temps de tri en fonction 
du nombre N d'éléments à trier. Cet¬ 
te formule est : C*(N A 1.25). C est 
une constante qui dépend de la ma¬ 
chine. Elle vaut 0,0297 pour le Té¬ 
lestrat. Si on programme ce tri sur 
Atmos, C vaut environ 0,2 soit envi¬ 
ron 7 fois plus lent que le Télestrat ! 
Bien entendu, le temps de tri obte¬ 
nu est approximatif, car dépendant 
des données à trier. 

Il existe une méthode de tri encore 
plus rapide, nommée QUICK 
SORT. Elle est hélas plus longue à 
programmer. Le temps de tri est 
évalué par la formule : 

0,0297*(N A 1.125). Par exemple, 
lOOO éléments sont traités en seu¬ 
lement 1 minute ! Nous verrons cet¬ 
te méthode dans sa version Téles¬ 
trat une prochaine fois. 
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DITEUR DE 
PAGES TEXT 


Patrice GUERRIN 


C et utilitaire très puissant va vous permettre de 
créer des pages en mode TEXT. Vous disposez 
maintenant d'une trentaine de fonctions non exis¬ 
tantes en mode commande qui vont vous permettre de 
créer des pages écran : le labyrinthe de votre PAC MAN, 
une page de présentation, des explications, le terrain 
où se déroulera votre jeu... tout est possible grâce à cet 
EDITEUR DE PAGES. 


Voici le résumé de toutes les fonc¬ 
tions disponibles : 

LE MENU 

Vous déplacez la barre bleue avec 
les flèches haut et bas, ou avec le 
joystick, ou avec une souris. Pour 
valider, RETURN ou ESPACE, ou 
le bouton de feu du joystick. 

LE MODE EDITION 

C'est bien sûr le mode qui vous 
permet de créer des pages TEXT. 
Une fois en mode édition, l'écran 
s'efface et un curseur apparaît en 
haut et à gauche de l'écran. Vous 
êtes alors dans une fenêtre TEXT 
où vous pouvez écrire ce que vous 
voulez. La touche DEL revient au 
début de la ligne courante. Pour 
effacer un caractère, il suffit d'ap¬ 
puyer sur la flèche de gauche, et 
de réécrire le bon caractère. On 
peut aussi se servir de la barre 
espace pour effacer une série de 
caractères. La touche ESC permet 
de revenir au menu. La touche 
RETURN fait passer le curseur au 
début de la ligne suivante. Voici les 
fonctions disponibles en mode édi¬ 
tion : 

FUNCT-A : encre rouge 


FUNCT-B : encre verte 
FUNCT-C : encre jaune 
FUNCT-D : encre bleue 
FUNCT-E : encre magenta 
FUNCT-F : encre cyan 
FUNCT-G : encre blanche 
FUNCT+SHIFT+2 : encre noire 

CTRL-T : bascule Majuscules / Mi¬ 
nuscules 

CTRL-F : bruit des touches (ON / 
OFF) 

CTRL-N : efface tous les caractè¬ 
res qui sont sur la ligne où se trou¬ 
ve le curseur. 

CTRL-D : affiche les caractères 
sur deux lignes. Cette fonction per¬ 
met d'écrire en double hauteur. Il 
faut faire CTRL-D puis FUNCT-J, 
puis écrire le texte. On doit impérati¬ 
vement se trouver sur une ligne pai¬ 
re, sinon, le texte sera écrit à l'en¬ 
vers. 

CTRL-2 : déplace les caractères 
de la ligne où se trouve le curseur 
d'un cran à gauche. Le caractère le 
plus à gauche passe à droite. Les 
fonctions CTRL-2 et CTRL-3 s'utili¬ 
sent pour faire des centrages. 
CTRL-3 : pareil que CTRL-2, mais 
décale les caractères à droite. 
FUNCT-1 : papier rouge 
FUNCT-2 : papier vert 
FUNCT-3 : papier jaune 


FUNCT-4 : papier bleu 
FUNCT-5 : papier magenta 
FUNCT-6 : papier cyan 
FUNCT-7 : papierblanc 
FUNCT-0 : papier noir 
FUNCT-J : double hauteur 
CTRL-P : curseur fixe/clignotant 
FUNCT-X : efface les caractères si¬ 
tués juste après le curseur dans la li¬ 
gne. 

FUNCT- : affiche COPYRIGHT 
FUNCT- = : affiche un carré 
FUNCT-DEL : affiche une flèche 
CTRL-V : bascule vidéo inverse 
ON/OFF 

CTRL-F : bruit des touches ON / 
OFF 

CTRL-L : efface l'écran 

CHARGER UNE PAGE 
ECRAN 

Après avoir validé cette option, on 
vous demande le nom de la page 
écran. Tapez le. puis RETURN. La 
page se charge alors. Si elle n'exis¬ 
te pas, le message "FICHIER 
INEXISTANT...." apparait. Si vous 
êtes venu par erreur dans le sous- 
programme de chargement écran, 
vous pouvez taper FIN quand on 
vous demande le nom et le pro¬ 
gramme retournera au menu. Il en 
est de même pour chaque fonction 
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faisant appel au lecteur de disquet¬ 
te. 

Lorsque vous sauvez une page, 
celle-ci est sauvée sous forme 
NOM + EDI... 

SAUVER UNE PAGE ECRAN 

Entrez le nom de la page à sauver 
et appuyez sur RETURN. 

A noter que si une page du même 
nom existait déjà, elle serait détruite 
pour faire place à la nouvelle. 

CATALOGUE DE LA 
DISQUETTE. 

Effectue tout simplement le catalo¬ 
gue de toutes les pages étant sur la 
disquette. L'appui sur une touche 
fait réapparaître le menu. 

EFFACER UNE PAGE 
ECRAN 

Cette fonction efface la page écran 
dont vous donnez le nom qui se 
trouve sur la disquette. 

Si la page n'existe pas, le message 
“FICHIER INEXISTANT..“apparait. 

CHOIX DU TYPE DE 
CLAVIER 

Vous disposez de 3 types de cla¬ 
vier : QWERTY, AZERTY et FREN- 
CH. En entrant le numéro situé jus¬ 
te avant le type de clavier, vous défi¬ 
nissez le clavier courant. 


CHOIX DU PAPIER 

Permet de choisir la couleur de 
fond de l’écran en entrant le numé¬ 
ro de la couleur choisie entre 0 et 7. 

CHOIX DE L'ENCRE 

Permet de choisir la couleur globale 
de l'encre en entrant le numéro se 
rapportant à la couleur choisie 
(entre 0 et 7). 

CHOIX DES ACCENTS 

Permet de définir si l'on veut les ac¬ 
cents ou non. Pour savoir comment 
obtenir les accents au clavier, con¬ 
sultez le manuel du TELESTRAT 
au mot ACCENTSET. 

PROT/UNPROT PAGE 
ECRAN 

Permet de protéger ou déprotéger 
une page écran stockée sur dis¬ 
quette. Le choix n° 1 conduit à la 
protection d’une page écran, et le 
n° 2 à la déprotection d’une page 
écran. 

RENOMMER UNE PAGE 
ECRAN 

Permet de changer le nom d'une 
page écran en entrant tout d'abord 
le nom de la page à renommer, puis 
le nouveau nom que cette page 
prendra. 

CATALOGUE IMPRIMANTE 


CHOIX DES CARACTERES 

Vous disposez de 4 types de carac¬ 
tères qui sont stockés sur la dis¬ 
quette : CARACTERES NOR¬ 
MAUX, GRAS, FINS, OU PEN¬ 
CHES. Choisissez un type de carac¬ 
tères en déplaçant la barre jaune et 
validez avec ESPACE, RE¬ 
TURN.Les nouveaux caractères 

se chargent alors. 


Effectue le catalogue de la disquet¬ 
te sur imprimante, mais seules les 
pages créées avec l'EDITEUR DE 
PAGES seront affichées. 

UTILISATION JOYSTICK 

Si vous désirez par exemple faire 
un titre géant, vous avez grâce à 



b* 
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cette fonction la possibilité de défi¬ 
nir quel caractère sera affiché lors¬ 
que vous appuierez sur le bouton 
feu de votre joystick. 

REDEFINISSEUR DE 
CARACTERES 

Dès votre entrée dans ce sous-pro¬ 
gramme, la page qui est en cours 
de création est sauvée sur la dis¬ 
quette sous le nom de PAGE. On 
vous demande alors de mettre la 
disquette STRATSED et d'appuyer 
sur une touche. Vous êtes en mo¬ 
de redéfinition de caractères. Vous 
vous déplacez avec les flèches, 
vous affichezyeffacez avec ESPA¬ 
CE. Pour donner le code ASCII du 
caractère que l'on veut redéfinir, il 
faut l'entrer avec les touches 0 à 9, 
ce qui fait changer le nombre qui se 
trouve en haut et à droite de l'é¬ 
cran. 

Quand vous appuyez sur ESC, on 
vous demande : Sauver ? Si vous 
voulez sauver les caractères redéfi¬ 
nis, tapez Y. Sinon, tapez n'importe 
quoi. Le programme s'arrête alors. 
Pour retourner à l'EDITEUR DE PA¬ 
GES, tapez EDIT et une fois le pro¬ 
gramme lancé par RUN, allez dans 
le sous-programme de chargement 
ou vous chargerez la page portant 
le nom PAGE, ce qui vous permet¬ 
tra de retrouver votre ancienne pa¬ 
ge. 

A chaque appel du redéfinisseur 
de caractères, l'ancienne page 
ayant le nom PAGE est détruite 
pour faire place à la nouvelle. Il exis¬ 
te 4 types de caractères sur la dis¬ 
quette STRATSED qu’il va falloir 
transférer sur la disquette où se 
trouve le programme EDIT. Pour 
cela, faites : 

COPY “SLANT.CHS" 

TO "PENCHES.CAR" 

COPY "STD.CHS" 

TO "NORMALS.CAR" 

COPY "BOLD.CHS" 

TO "GRAS.CAR" 

COPY “SQUARE.CHS" 

TO "FINS.CAR" 


Voilà, faites de belles pages ! 


► 390 CURSOR SET:PRINT CHR$ ( 9 ) ; : GO 
SUB AFFI 

500 CURSOR SET:GET AI(A=ASC(AI) 

505 IF A=1 THEN 500 

510 IF fl=l1 AND PEEK(I224)=1 THE 
N 500 

511 IF A=32 AND PEEK(*224)=27 AN 
D PEEK(«2201=39 THEN 500 

520 IF A=10 AND PEEK(*224)=27 TH 
EN 500 

530 IF A=8 AND PEEK(1220)=2 AND 
PEEK(*224)=1 THEN 500 

540 IF A>32 AND PEEK(«224)=27 AN 
D PEEK(*220)=39 THEN 500 

545 IF A=9 AND PEEK(*2241=27 AND 
PEEK (1220) =39 THEN 500 
570 IF A=13 AND PEEK(12241027 T 
HEN PRINT 

610 IF A=27 THEN GOSUB SAUVE:GOT 
O 8000 

620 IF A=127 THEN AKCHRK13) 

691 IF AO 18 THEN 900 ELSE CURSO 
R OFF 

692 AD=IBB80+40*PEEK(I224)(JF PE 
EK(*224) =27 THEN S=1:PRINT CHRK11): E 

LSE S=0:PRINT CHR*(10);:' 

693 X=PEEK(AD+39):MOVE AD+2.AD+3 
9.AD+3 

694 POKE AD+2.X 

695 IF £=1 THEN PRINT CHR4(10); 

ELSE PRINT CHR*(11); 

900 IF AO 19 THEN 1000 ELSE CURS 
OR OFF 

901 AD=tBB80+40tPEEK(i224)(IF PE 
EK(*224) =27 THEN S=1 (PRINT CHRKU): E 
LSE S=0:PRINT CHRK 10): 

902 X=PEEK(AD+2)(MOVE AD+3.AD+40 

,AD+2:POKE AD+39.X 

920 IF S=1 THEN PRINT CHR»(10); 

ELSE PRINT CHR*(11); 

930 GOTO 500 

1000 PRINT Al;(GOTO 500 

1100 ICHARGEHENT 
1110 ERRGOTO 9050 

1115 CLS: PRINT 

1120 PRINT Ll;' CHARGEMENT D'UNE 

PAGE ECRAN 

1125 PRINT L*;’ CHARGEMENT D'UNE 

PAGE ECRAN 

1130 PRINT : PRI NT : PRINT CHRK 130 

) "NOM : V : INPUT Al 

1135 IF AI=’FIN’ THEN 8000 

1140 CURSOR OFF:LOAD Al+'.EDI’:MO 

VE «BB80,IBFDF,«A000: GOTO 8000 
1200 ISAUVEGARDE 
1210 ERRGOTO 9050 

1220 CLS:PRINT 

1230 PRINT Ll;* SAUVEGARDE D'UN 

E PAGE ECRAN.' 


1235 PRINT LD* SAUVEGARDE D'UN 

E PAGE ECRAN' 

1240 PRINT (PRINT (PRINT CHRK130 
K'NOM : INPUT Al 

1245 IF AI='FIN' THEN GOTO 8000 
1250 GOSUB AFFI(SAVEO AI+'.EDI',A 
IBB80,E*BFDF:GOTO 8000 
1300 ICATALOGUE 
1310 CLS 

1315 PRINT (PRINT Ll;' CATALOG 

UE D'UNE DISQUETTE' 

1316 PRINT Ll:* CATALOGUE D'UN 

E DISQUETTE' 

1320 NAIT 10(DIR 't.EDI* 

1330 PRINT (PRINT ' ';CHRI(128) 

; CHR* ( 146) ."APPUYEZ SUR UNE TOUCHE \'C 
HRK144) 

1340 GET Al(GOTO 8000 
1400 1DETRUIRE 
1410 CLS 

1415 ERRGOTO 9050 

1420 PRINT (PRINT L»:* DESTRUCT 

ION D'UNE PAGE ECRAN’ 

1430 PRINT Ll;* DESTRUCTION D'U 
NE PAGE ECRAN' 

1440 PRINT (PRINT (PRINT CHRK130 
)'NOM ( ■:(INPUT Al 
1445 IF AI=’F1N' THEN GOTO 8000 

1450 DEL A»+*.EDI*(PRINT (PRINT C 

HRt<131):AI+*.EDI':CHRI(130)'détruit.. 
.'(NAIT 20(GOTO 8000 
1500 3CHOIXCLAVIER 
1520 CLS(PRINT 

1530 PRINT Ll:* CHOIX DU TYPE 

DE CLAVIER' 

1535 PRINT Ll:* CHOIX DU TYPE 

DE CLAVIER' 

1540 PRINT (PRINT (PRINT 

1545 PRINT CHRK145)'1 -'CHRK144 

)CHRI(130)'CLAVIER QWERTY'(PRINT 
1550 PRINT CHRK 145)'2 -'CHRK 144 
)CHRI(130)"CLAVIER AZERTY*(PRINT 
1555 PRINT CHRK 145)'3 -'CHRK 144 

)CHRI(130)'CLAVIER FRENCH*(PRINT 
1580 PRINT (PRINT CHR»(146)CHRI(1 

28)'VOTRE CHOIX (1,2,3) ( VCHRK 144)CH 
RK 132): (INPUT A 


1582 
EN 1500 

IF AOl AND A<>2 AND A03 TH 

1585 

IF A=1 THEN QWERTY 

1590 

IF A=2 THEN AZERTY 

1595 

IF A=3 THEN FRENCH 

1596 

GOTO 8000 

1600 

ICARACT 

1605 

ERRGOTO 9200 

1610 

CLS(PRINT 

1620 

PRINT L»:* CHOIX DES CAR 

ACTERES 

■ 

1630 

PRINT Ll:' CHOIX DES CAR 


ACTERES* 

1640 PRINT (PRINT 

1650 PRINT * * ;CHR*(132);* CARA 

CTERES NORMAUX'(PRINT 
1652 PRINT * *;CHRI(132);' CARA 
CTERES GRAS'(PRINT 
1654 PRINT ' ':CHR»(132): * CARA 

CTERES FINS*(PRINT 

1656 PRINT * *;CHR»(132): * CARA 

CTERES PENCHES'(PRINT 

1657 FOR I=»BB80+40*5+27 TO IBB80 
+40115+27 STEP 40:POKE I,16(NEXT 

1658 Y=6(POKE IBB80+40tY+6,19 

1660 GET A»:A=ASC(A*) 

1665 IF A=10 AND Y<12 THEN POKE 
»BB80+40tY+6,32(Y=Y+2 
1670 IF A=ll AND Y>6 THEN POKE I 

BB80+40tY+6,32(Y=Y-2 
1675 IF A=32 OR A=13 THEN 1682 

1680 POKE «BB80+404Y+-6,19(GOTO 1 

660 

1682 IF Y=6 THEN LOAD ’NORMALS.C 

AR' 

1684 IF Y=8 THEN LOAD 'GRAS.CAR' 

1686 IF Y=10 THEN LOAD 'FINS.CAR 

■ 

1688 IF Y=12 THEN LOAD 'PENCHES. 

CAR' 

1690 GOTO 8000 

1700 IPAPIER 
1710 CLS;PRINT 

1720 PRINT Ll;* CHOIX DU P 

APIER' 

1730 PRINT L»:* CHOIX DU P 

APIER' 

1740 PRINT (PRINT 

1745 A$=CHRI(128)+CHRI(145)(B»=C 

HR»(146) 

1750 PRINT AI'O 'BI'PAPIER NOIR' 
(PRINT 

1751 PRINT A»'1 'BI'PAPIER ROUGE 

■(PRINT 

1752 PRINT Al'2 'BI'PAPIER VERTE 

'(PRINT 

1753 PRINT Al'3 'BI'PAPIER JAUNE 

'(PRINT 

1754 PRINT A»*4 'BI'PAPIER BLEU' 

(PRINT 

1755 PRINT Al'5 'BI'PAPIER MAGEN 

TA'(PRINT 

1760 PRINT Al'6 'BI'PAPIER CYAN' 

(PRINT 

1765 PRINT Al'7 'BI'PAPIER BLANC 

■(PRINT 

1770 PRINT (PRINT CHRK 128)CHR»( 

147)'VOTRE CHOIX (0-7) : * :CHR»(132)CHR 

K144);(INPUT A 

1775 IF A<0 OR A>7 THEN 1700 ► 
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►1780 HOVE 9A000,IA45F,IBB80: PAPE 
R A :WA1T 10 :GOSÜB SAUVE:GOTO 8000 


1800 )ENCRE 

1810 

CLS:PRINT 

1820 

PRINT LJP CHOIX DE L'E 

NCRE" 


1830 

PRINT LJP CHOIX DE L'E 

NCRE’ 


1840 

PRINT :PRINT 

1845 

AJ=CHR1(128I+CHR1I145):BJ=C 

HRJ(146) 


1850 

PRINT AJ’0 ’BJ"ENCRE NOIRE’ 

:PRINT 


1851 

PRINT AJ’l ’BJ"ENCRE ROUGE’ 

: PRI NT 


1852 

PRINT AJ’2 ’BJ"ENCRE VERTE’ 

:PRINT 


1853 

PRINT AJ’3 ’BJ"ENCRE JAUNE’ 

:PRINT 


1854 

PRINT AJ’4 ’BJ’ENCRE BLEU’: 

PRINT 


1855 

PRINT AJ’5 ’BJ"ENCRE NAGENT 

A’: PRINT 


1860 

PRINT AJ’6 ’BJ"ENCRE CYAN": 

PRINT 


1865 

PRINT AJ’7 ’BJ"ENCRE BLANCH 

E":PRINT 


1870 

PRINT :PRINT CHRJ(128)CHRJ( 

147PVOTRE CHOIX (0-7) :’;CHR1< 132ICHR 

$(144); :INPUT.A 

1875 

IF A<0 OR A>7 THEN 1800 

1890 

HOVE #A000,IA45F,iBB80:INK 

A:«AIT 10:GOSUB SAUVE:GOTO 8000 

1900 IAKSENT 

1910 

CLS:CURSOR OFF:PRINT 

1920 

PRINT LJ;’ CHOIX DES 

ACCENTS’ 


1930 

PRINT LJ, 1 ’ CHOIX DES 

ACCENTS" 


1940 

PRINT :PRINT 

1950 

PRINT CHRJ(132>CHRJ<146)" 1 

“CHR»(147) 

ACCENT SET ’:PRINT 

1960 

PRINT CHRJ(132)CHRJ(146)* 2 

"CHR1I147) 

ACCENT OFF VPRINT 

1970 

PRINT :PRINT CHRJ(149)CHRJ( 

128)"VOTRE CHOIX ( 1,2 ) :"CHRJI1441CH 

R«(131);:INPUT A 

1980 

IF A=1 THEN 1985 ELSE IF A= 

2 THEN 1985 ELSE 1900 

1985 

IF A = 1 THEN ACCENT SET ELSE 

ACCENT OFF 

1990 

GOTO 8000 

2000 1PROTEC 

2005 

ERRGOTO 9050 

2015 

CLS:PRINT 

2020 

PRINT LJ: ’ PROT/UNPROT PA 

GE ECRAN" 


2025 

PRINT LJ:’ PROT/UNPROT PA 


GE ECRAN’ 


2026 PRINT :PRINT :PRINT CHRJ114 ON REALISE DES TITRES’ 

5)'l "CHRJU44)’- PROT’:PRINT :PRINT 2345 PRINT QJ:'GEANTS, PAR EXEHP 

CHRJI145)'2 ‘CHR«(144)* - UNPROT’ LE- IL EST TRES’ 

2027 PRINT :PRINT CHRJ(128)CHRJ( 23 50 PRINT QJ:'PRATIQUE DE SE SE 

146)’VOTRE CHOIX (1,2) :’CHRJI144>CHRJ RVIR DU JOYSTICK’ 

(134);:INPUT A 2355 PRINT 04;'POUR COMPOSER SON 

2028 IF A=1 THEN 2030 DESSIN. CETTE’ 

2029 IF A=2 THEN 2030 ELSE 2000 2360 PRINT QJ;'FONCTION VA VOUS 

2030 PRINT :PRINT :PRINT CHRJI13 PERHETTRE DE’ 

3)’NOM :’CHRJ( 131);:INPUT A4 2365 PRINT Q»;"DEFINIR LE CARACT 

2035 IF A«=’FIN’ THEN 8000 ERE QUI SERA’ 

2036 IF A=1 THEN 2050 2370 PRINT Q$;"AFFICHE LORS DE L 

2040 UNPROT AJ+’.EDI’:PRINT :PRI 'WW! SUR LE* 

NT CHRJ(148):AJ+’.EDI’:CHRJI131l’DEPRO 237 5 PRINT Q»:’BOUTON FEU.’ 

TEGE...’: WAIT 20;GOTO 8000 2380 PRINT :PRINT CHR*(128)CHR$( 

2050 PROT AJ+’. EDP :PRINT : PR I NT 146) "CARACTERE 0 ’CHR$ (131 )CHR$ (144);: 

CHRJI148);AJ+*.EDI’:CHRJ(131)"PROTEGE INPUT A» 

...’;NAIT 20:GOTO 8000 2390 POKE 129F,AJ 

2100 )RENUH 2395 GOTO 8000 

2110 ERRGOTO 9050 2500 )IHPR 


2115 

CLS: PRINT 

2505 

CLS: PRINT 


2120 

PRINT LJ;’ RENOHHER UNE PA 

2510 

PRINT LJ;* 

IHPRESSION 

GE ECRAN’ 


PAGE ECRAN’ 


2130 

PRINT LJ:’ RENOHHER UNE PA 

2520 

PRINT LJ:* 

IHPRESSION 

GE ECRAN’ 


PAGE ECRAN’ 


2140 

PRINT :PRINT CHRJI130)"NOH: 

2550 

CURSOR OFF:GOSUB AFFI 

"CHRJI131) 

■:INPUT AJ 

2560 

FOR I=»BB80 TO IBFDF 

2145 

IF AJ=’FIN" THEN 8000 

2561 

IF PEEKIIX31 AND PEEKIIX 

2150 

PRINT :PRINT CHRJI130)’NOUV 

>13 THEN CAR-32 ELSE CAR=PEEK(I) 

EAU NON;"CHRJI131)::INPUT BJ 

2562 

LPRINT CAR::NEXT 

2155 

IF BJ="FIN" THEN 8000 

2570 

GOTO 8000 


2160 

REN AJ+’.EDI’ TO BJ+’.EDI’: 

2600 ICATIHPR 


NAIT 20:GOTO 8000 

2610 

CLS:PRINT 


2200 IREDEF 

2620 

PRINT LJ:’ 

CATALOGUE S 

2205 

ERRGOTO 9000 

UR IMPRIMANTE’ 


2210 

GOSUB AFFI:SAVEO "PAGE.EDI* 

2630 

PRINT LJ;" 

CATALOGUE S 

,AIBB80,EIBFDF:CLS:PAPER 0:INK 7:CURSO 

UR IHPRIHANTE’ 


R OFF 


2640 

LDIR "J.EDI" 

:GOTO 8000 

2220 

PRINT :PRINT "LA PAGE EN CO 

7999 END 


URS VIENT D'ETRE SAUVEE" 

8000 

CLS;PAPER 0:INK 7:CURSOR 0 

2230 

PRINT "SUR UNE DISQUETTE SO 

FF 



US LE NON DE:’ 

8005 

ERRGOTO 8000 

2235 

PRINT ’PAGE.EDIVPRINT QJ:’ 

8010 

PRINT :POKE IBBA8,17:POKE 

INSEREZ LA DISQUETTE" 

•BBA8+40 

19:P0KE 4BBA8+80,19:POKE IBBA 

2240 

PRINT QJ;’STRATSED FOURNIE 

8+120,17 



AVEC LE TELESTRAT’ 

8020 

PRINT CHRJ(138):CHRJ(128); 

2250 

PRINT QJ:"POUR POUVOIR ACCE 

B 

H E N U’ 


DER AU" 


802! 

PRINT CHRJ<138):CHRJ(128); 

2260 

PRINT QJ:"REDEFINISSEUR DE 

B 

H E N U’ 


CARACTERES ET ’:PRINT QJ:’ APPUYEZ 

8050 

PRINT 


SUR UNE TOUCHE ...’ 

8100 

PRINT 


2270 

GET AJ:LOAD ’GENCAR" 

8102 

REH LAISSEZ 5 ESPACES AVAN 

2300 IJOY 

T CHAQUE CHOIX ... 


2305 

CLS:PRINT 

8105 

PRINT ’ 

HODE EDITION’: 

2320 

PRINT LJ:’ UTILISATION J 

PRINT 



OYSTICK" 


8110 

PRINT ’ 

CHARGER UNE PA 

2330 

PRINT LJ:’ UTILISATION J 

GE ECRAN 

":PRINT 


OYSTICK" 


8120 

PRINT ’ 

SAUVER UNE PAG 

2340 

PRINT :PRINT QJ;"LORSQUE L' 

E ECRAN’ 

:PRINT► 
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8130 

PRINT ’ CATALOGUE DE L 

R 



A DISQUETTE 

’:PRINT 

8280 

IF YM8 THEN CARACT 

8140 

PRINT ’ DETRUITE UNE P 

8285 

IF Y=20 THEN PAPIER 

AGE ECRAN’:PRINT 

8290 

IF Y=22 THEN ENCRE 

8145 

PRINT ’ CHOIX DU TYPE 

8295 

IF Y=24 THEN AKSENT 

DE CLAVIER’ 

:PRINT 

8300 

CLS 


8150 

PRINT ’ CHOIX DES CARA 

8310 

PRINT :POKE IBBA8,17:P0K 

CTERES’:PRINT 

E IBBA8+40,19:POKE IBBAB+80,I9:P0KE IB 

8160 

PRINT ’ CHOIX COULEUR 

BA8+120.17 



DU PAPIER’:PRINT 

8320 

PRINT CHR4(138) CHR4 <128 

8170 

PRINT ’ CHOIX COULEUR 

):■ 

HENU’ 


DE L'ENCRE’ 

:PRINT 

8321 

PRINT CHR4(138);CHR4(128 

8175 

PRINT ’ CHOIX DES ACCE 

);■ 

MENU’ 


NTS’:PRINT 


8350 

PRINT 


8180 

PRINT ’ HENU ( SUITE ) 

8400 

PRINT 


R 


8410 

PRINT ’ 

PROT/UNPROT 

8190 

Y=6:POKE *BB80+40*Y+6,20 

PAGE ECRAN’:PRINT 


8195 

FOR IMBB80+5I40+33 TO IBB 

8420 

PRINT ’ 

RENOMMER PAG 

80+40126+33 

STEP 40:POKE I,16:NEXT 

E ECRAN’:PRINT 


8200 

GET A4 :A=ASC(A4) 

3430 

PRINT ’ 

REDEF INI SSEU 

8210 

IF A=10 AND Y<25 THEN POK 

R CARACTERES’ 

:PRINT 


E »BB80+40tY+6,32:Y=Y+2 

8435 

PRINT ’ 

UTILISATION 

8220 

IF A=11 AND Y>6 THEN POKE 

JOYSTICK’:PRINT 


IBB80+40»Y+6,32:Y=Y-2 

8440 

PRINT ’ 

IMPRESSION P 

8230 

POKE IBB80+40tY+6,20 

AGE ECRAN’:PRINT 


8235 

IF AM3 OR A=32 THEN 8240 

8442 

PRINT ’ 

CATALOGUE SU 

ELSE 9200 


R IMPRIMANTE* 

: PRI MT 


8240 

CLS 

8445 

PRINT ’ 

ARRET PROGAM 

8241 

FOR I=«BBA8 TO «BBAB+160 

HE’îPRINT 



STEP 40:POKE I,16:NEXT 

8450 

PRINT ’ 

MENU ( SUITE 

8250 

IF Y=8 THEN GOTO CHARGEA 

)’: PRINT 



ENT 

% 

8690 

YM:POKE IBB80+40tY+6,20 

8251 

IF Y=6 THEN CLS:G0T0 390 






8695 

FOR IMBB80+5I40+33 TO 1 

8255 

IF Y=10 THEN SAUVEGARDE 

BB80+40I26+33 

STEP 40:POKE 1,16:NEXT 

8260 

IF Y=12 THEN CATALOGUE 

8700 

GET A4 :A=ASC(A4) 

8265 

IF YM4 THEN DETRUIRE 

8710 

IF AM0 AND Y<20 THEN P 

8270 

IF YM6 THEN CHOIXCLAV1E 

OKE IBB80+40tY+6,32:YM+2 



8720 IF AMI AND Y>6 THEN PO 

KE IBB80+40tY+6,32:Y=Y-2 
8730 POKE #BB80+40*Y+6,20 

8735 IF A= 13 OR A=32 THEN 87 

10 ELSE 8700 

8740 CLS 

8741 FOR I=»BBA8 TO IBBA8+16 

0 STEP 40:POKE I,16:NEXT 

8750 IF Y=6 THEN GOTO PROTE 

C 

8760 IF Y=8 THEN GOTO RENUH 

8765 IF YM0 THEN REDEF 

8770 IF Y=12 THEN JOY 

8775 IF Y=14 THEN INPR 

8780 IF Y=16 THEN CATIHPR 

8790 IF YM8 THEN CLS:END 

8795 IF Y=20 THEN 8000 

9000 W* =CHR*(131)+CHR*(140) 

:PRINT :PRINT VC'IL N'Y A PAS LE REDE 
FINISSEUR DE" 

9005 PRINT N$;"CARACTERES S 

UR LA DISQUETTE.’:GET A4:GOTO 8000 
9050 PRINT :PRINT N4;’FICHI 

ER INEXISTANT...VGET ACGOTO 8000 
9200 PRINT :PRINT Ni:"NETTE 

2 LA DISQUETTE OU SE TROUVENT’:PRINT U 
4:"LES CARACTERES REDEFINI ...’ 

9210 PRINT :PRINT Y4:’DAN£ 

LE LECTEUR ...":GET A4 : GOTO 8000 
50000 ISAUVE 

50010 CURSOR OFF:HOVE IBB80, 

IBFDF,»A000:RETURN 
51000 1AFFI 

51010 HOVE »AOOO,IA45F,#BB80 

REÎURN 


ORDIELEC 

19, rue Hippolyte Flandrin 
69001 LYON 
Tél. 78.27.80.17 

Par minitel de I2h15 à I4h00 
et de 19h30 à lOhOO à ce même numéro 

SPÉCIALISTE ORIC 

Démonstration Talostrat 
an permanence 

Composants connectlque 
et cables. 

Compatibles IBM._ 


Ils ont gagné ! 


Ils ont répondu à la grande enquête lecteurs THEORIC/ 
ORIC International, ils ont gagné ! 

Le TELESTRAT ira à Dominique NEY de NIHANGE (57) sacré 
veinard ! On dit "merci ORIC International" ! 

Les autres gagnants sont désignés sur la liste ci-dessous : 

J. MIGNIAC - 30 NIMES - J.M. RIVES - 81 LE GARRIC 
D. CUIROT - 78 FEUCHEROLLES - C. GRAS GENIAUX 
C. COLLINEAU - 49 ANGERS - D. COPIN- 18 BOURGES 
V. ALBOUY - 94 CHARENTON - B. SEHET - 49 GENNES 
P. BONAFONTE - 78 LE-MESNIL-LE-ROI 

A tous, merci pour votre participation à cette enquête. 
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ORIC 

NEWS 


= TELESTRAT = 


TELESTRAT . Configuration de base comprenant : 

Unité centrale, lecteur de disquette 3" double face, 400 K, 
langages Hyper-Basic et Télématic, système d'exploitation 
Stratsed,câbles péritel, minitel et alimentation secteur. 

Relié au minitel, Téléstrat devient "le serveur le moins 
cher du monde" (Minitel magasine 02/87). 

Editeur de pages, d'arborescences et BAL intégrés. 


L'ensemble ORIC TELESTRAT 


3990 F 




NOUVEAU STRATORIC EST ARRIVE 

Il vous permet d'utiliser votre Téléstrat en mode 
émulation Oric lou Atmos, pour charger vos K7 ou 
vos disquettes Sedoric ou convertir XLdos ou Tdos. 
Transférez vos K7 sur disquettes, jeux, utilitaires... 
Trois ordinateurs en un : Oric 1, Atmos avec 
microdisc et Téléstrat. 

Cartouche+Sedoric complet+manuel Atmos 
et notice d'emploi du STRATORIC 490 F 


Assembleur double passe 6502 
Télé-Ass en cartouche contient tous 
les mnémoniques du moniteur, et 
n'occupe pas l'espace de l'util isate ur. 


Complet avec manuel 


590 F 


Le manuel développeur: 

....... i..y............. i ;... i 


190 F 


FIG-FORTH 500 mots, manuel très 
complet 75 pages, intègre toutes les 
fonctions système du Téléstrat, écran 
hires, son serveur, disques^- 

Télé-Forth cartouche: 490 F 






EXTENSION RAM 64 K tsH 



Ce pseudo disque de 64 Ko, charge 5 à 18 fois plus 
rapidement vos fichiers et programmes, n'inhibe pas les 
interruptions dont le micro ne s'arrête plus lors des accès 
disque. Livré avec une disquette de programmes pour 
installer votre disque virtuel et mode d'emploi. 


Cartouche RAM-64 K: 


690 F 


690 F 


PERIPHERIQUES ET ACCESSOIRES 


Microdisc suplémentaire 

Le téléstrat peut en avoir 4 1790 F 

Boitier multiprint permet de connecter 
plusieurs Téléstrat sur l'imprimante 
modèle 4 voies sans câbles 1450 F 

modèle 8 voies sans câbles 1950 F 

Moniteur couleur 36 cm RVB + son 2490 F 

Moniteur monochrome vert 1150 F 

Modulateur N/B avec câbles 345 F 

Câble Péritel 120 F 

Joystick Spectravidéo 90 F 

Souris pour Téléstrat 690 F 




Complément de l'assembleur, il vous 
révélera tous les secrets du système 


Indispensable pour avoir l'heure, la 
date du jour même si le lecteur a été 
interrompu, la pile dure plus de deux 
ans , applications en basic , en 
serveur, jeux avec manuel et listing de 
programmes. _ 5. 9Q . F 


Câble imprimante type Centronic 180 F 

Disquette vierge 3" 39 F 

Câble moniteur monochrome 80 F 


PACKAGES RADIO-AMATEURS : 

RTTY 390 F 

Fac-Similé 390 F 


REPRISE DE VOTRE 

ORIC Pour l'achat d'un téléstrat, 
votre ancien Oric 1 ou Atmos, avec 
son alimentation, vou s est repri s 
pour la somme de 


I HORLOGE TEMPS REEL 


BOUTIC 1 ORIC 39 RUE VICTOR MASSE 75009 PARIS (16-1)42.81.20.02 DU LUNDI AU VENDREDI 
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Le micro ordinateur Atmos, complet, performant doté 
d'un basic puissant, d'un synthétiseur musical, dun 
graphisme en haure résolution en 8 couleurs, dispose 
d'une vaste gamme de logiciels, dans tous les domaines 
d'activité: jeu, éducation, dessin, musique, etc... 


Il peut recevoir de nombreux périphériques, magnéto, 
lecteur de disquettes, interface joystick, horloge temps 
réel, cane relais, etc... 


Livré avec 2 K7 de jeu, 1 K7 démo, 
câbles K7, péritel, alim. et manuel. 


990 ‘F 


... 

LECTEUR PE CASSETTES 


Spécialement conçu pour les micros, et en 
particulier pour l'ORIC Atmos, ce 
magnéto K7 est équipé d'un buzzer qui 
vous permet de suivre le déroulement de 
vos programmes. 

Il est doté d'un compteur pour repérer vos 
bandes et de prises DIN ou Jack pour la 
liaison au micro-ordinateur. - 


350 F 


■ 


INTERFACE JOYSTICK 

PROGRAMMABLE 
Il vous permet d'utiliser vos jeux 
et programme avec un joystick à la 
place du clavier. 

Il se programme en appuyant sur 
la touche du clavier et en mettant la 
manette dans la position que vous 
souhaitez pour cette touche. 

Il permet également d'éviter dans 
certaines applications d'utiliser le 
clavier. 

Interface + manuel 350 F 

Joystick Spectravideo 95 F 




LECTEUR DE DISQUETTES 3" POUR ATMOS 

Le microdisc est doté d'un puissant système d'exploitation qui 
ajoute plus de 90 instructions complémentaires à votre Atmos. 
Fichiers séquentiels ou à accès directs, etc... 

Son contrôleur intégré peut gérer 3 lecteurs complémentaires. 

Les chargements de programmes ou de Fichiers sont quasi 
instantanés (32 Ko en 2,5 sec.) 

Vous pourrez transférer vos K7 sur disquettes, ou copier des 
programmes écrits sous Dos Vl.l, XL Dos ou Tdos grâce à 
l'utilitaire convivial Convert. 

NOUVEAU : Le microdisc est maintenant livré en doubles têtes 
ce qui évite de retourner la disquette. 400 Ko en ligne. 

GRATUIT : Pour l'achat du microdisc, Oric vous offre la 
transformation gratuite de votre Oric qui le dotera des dernières 
modifications, horloge renforcée, péritel alimentée, fiabilisation 
du chargement K7... 


Microdisc+alim+Sedoric+manuel 


2690 F 


l, ■ — - = PERIPHERIQUES ET ACCESSOIRES - 


Microdisc Esclave B,C,D sans alim 

1490 F 

Modulateur N/B avec câble Atmos 

345 F 

Disuette Sedoric + manuel 

490 F 

Imprimante Cosmos 80 

2890 F 

Alimentation pour 2 microdisc 

450 F 

Câble imprimante pour Atmos 

180 F 

Carte controleur seule (pour 4 lecteurs) 

990 F 

Ruban de Rechange pour Cosmos 80 

100 F 

Câble nappe 34c pour Microdisc 
Transformation Oric 1 en Atmos Français 

120 F 
490 F 

LIBRAIRIE 


Echange Standart Carte Anglaise en état 


Guide de l’Oric 1 

95 F 

contre carte Fr., péri-alim, garantie 1 an 

450 F 

50 Programmes pour Oric 1 

90 F 

Moniteur couleur 36 cm RVB+son 

2490 F 

Manuel de l'Atmos 

50 F 

Moniteur monochrome vert 

1150 F 

L'Oric à nu F. Broche 

151 F 

Câble péritel auto-alim, pour Oric Français 

150 F 

Communiquez avrc votre Oric 

145 F 

Câble moniteur monochrome 

80 F 

Interfaces pour Oric 

59 F 

K7 vierge Cl5 par 10 

100 F 

Mieux Programmer sur Oric 

110 F 

Disquette 3" vierge l'unité 

39 F 

Apprenez l'électronique sur Oric 

110 F 


v _/ 
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-NEWS 


== LOGICIELS == 
ATMOS / ORIC 1 


ATMOS 

cassette 

Méthode Assimil Anglais 250 F 

Méthode Assimil Espagnol 250 F 

Cours de Basic 150 F 

Author (traitement de texte) 100 F 

J. Bond(Dang.Votre arc/av) 150 F 

3D Invaders (Arcade) 40 F 

Chess II (réflexion) 40 F 

Defence Force (Arcade) 40 F 

House of death 40 F 

Novotnik puzzle (réflexion) 40 F 

Oric-Munch (arcade) 40 F 

Rat-Splat (arcade) 40 F 

Super Break-out 40 F 

Super météor (arcade) 40 F 

Ultima Zone (arcade) 40 F 


TELESTRAT 

Disquettes sous Stratsed 


Dangereusement vôtre 

200 F 

Arcades N°1 Harrier attack 


Super météor,Ultima zone 

200 F 

Arcades N°2 Flight simul. 


Galaxian, Rat-splat 

200 F 

Télé-CHESS 

200 F 

Méphisto ( avent. FR ) 

155 F 

Musirama (éducatif) 

195 F 

Clavidact (éducatif) 

185 F 

Télékube (Rubik's) 

200 F 

Nibbler (arcade) 

190 F 

Défence Force (arcade) 

190 F 

Ludico (éducatif) 

205 F 

Metho-Loto (loto) 

195 F 

StratMon (ass.désass) 

200 F 

Gestion d'adresses 

590 F 

Lisbal (gestion BAL) 

1000F 

Graph (utilitaire) 

250 F 

Crisp (jeu) 

150 F 

Accent Vidéotex (utilitaire) 

490 F 

Stratdisk (utilitaire) 

250 F 


Cartouches 


TELE-ASS + manuel 
TELE-FORTH + manuel 
STRATORIC +disc+man. 
ROMOR1C 1 
ROMATMOS 
RAM 64 Ko+disc+man. 


ORIC 1 

cassettes 

Archeron's Rage (arcade) 
Annuaire (familial) 

Assemb. desass (utilitaire) 
Carn 3 (arcade) 

Casse-briques (arcade) 
Centipede (Arcade) 

La chenille infernale (Arcade) 
J. Bond(Dang.Votre arc/av) 
Dico 5 (éducatif) 

Dracula's Revenge (Arcade) 
Europe (géographique) 
Galaxians (Arcade) 

Galaxion (Arcade) 

Gastronom (Arcade) 
Geofrance (éducatif) 

Gencar (utilitaire) 

Gestion de Stock 
Godilloric (Arcade) 

Harrier Attack (Arcade) 
Hopper (Arcade) 

Hyper Master mind (refl) 

Ice Giant (Arcade) 

Intertron (Arcade) 

Invaders(Arcade) 

Le Protector (Arcade) 

Orible (Arcade) 
Oric-Mon(utilitaire) 

Puissance 4 (réflexion) 
Startfighter (Arcade) 

The Ultra (Arcade) 

Word Process (trt de tex) 


590 F 
490 F 
490 F 
200 F 
200 F 
690 F 


40 

40 

40 

40 

40 

40 

40 

150 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 

40 
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ORIC 

NEWS 


LOGICIELS sur Disquettes sous Sedoric ou Stratoric 


Arcades N°1 Harrier Attack 

Super Météor, Ultima Zone 200 F 

Arcades N°2 Flight Simul. 

Galaxian, Rat-splat 200 F 

Méthode Assimil Anglais 300 F 

Méthode Assimil Espagnol 300 F 

Manoir du Dr Génius 200 F 

Le Retour du Dr Génius 200 F 

Super Advances Breakout 150 F 

Space Shuttle 150 F 

Skramble 150 F 

3 D Munch 150 F 

Star 150 F 

Oric Munch 150 F 

Chess II 150 F 

Stanley 150 F 

Super Jeep 150 F 

Doggy 150 F 

Orible 150 F 

J'apprends l’anglais 150 F 

Dico 5 150 F 

Intertron 150 F 

Trait 3D 150 F 

La chenille infernale 150 F 

Starfighter 150 F 

Godilloric 150 F 

Geofrance 150 F 

Europe 150 F 

Galaxy 5 150 F 

Annuaire 150 F 

Cours de Basic 150 F 

Kilburn Encounter 150 F 

Jeux pour enfants 150 F 

Novotnik Puzzle 150 F 

House of Death 150 F 

Postman sam 200 F 

Sam go Shopping 200 F 

Mystery Tour 200 F 

Hubert 150 F 


Hubert 

150 

Scuba Dive 

150 

Sorvivor 

150 

F’uzzle 

150 

Kilburn Encounter 

200 

Traitement 3D 

200 

Frog-Hop 

150 


NOUVEAUTES 

3D FONGUS 

Menez votre avion jusqu’au champ de 
cristal en évitant de nombreux obstacles. 

ACHERON’S RAGE 

Combattez les nombreuses vagues d'envahisseurs 
qui vous menacent de destruction 

JIMMY-POUB 

Ramassez les ordures éparpillées 
à tous les étages de votre maison. 

DRACULA'S REVENGE 

Tout votre courage sera nécessaire pour 
combattre le seigneur Dracula et ses comparses. 

L'AIGLE D'OR 

Promenez-vous dans le château 
pour découvrir le trésor 

JAMES BOND 

Vous pouvez prendre sa place dans ces 
deux jeux d'arcades / aventures 

LORIGRAPH 

Creer vos propres dessins 
grâce à ce logiciel 

EASY-TEXT 

Traitement de texte 



39 RUE VICTOR-MASSE 75009 PARIS 
TÉL: (16-1) 42.81.20.02 - TU: 649 385 F 
MINITEL (16-1 >42.81.22.72 


Boutic'Oric ouverte du 
lundi au vendredi de 
9 h à 13 h et de 14 h à 18 h. 


Bon de commande à retourner chez ORIC International 


Je désire recevoir les matériels ou logiciels suivants: 


Iqte 

DESIGNATION 

PRIX 

S/TOTAL 





1 




1 

1 





I Nom: 

Adresse:. 

Code postal:.Ville: 

Téléphoné:. 

Matériel possédé:. 

Signature: 

(Parents si mineurs) 


TOTAL = 

+ PORT 

35 F 

Si contre/rbt 

50 F 


A REGLER: 
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AVOIR UNE IDEE GENIALE 

En effet, une idée intéressante, voire 
originale, est la clé de la réussite 
d'un serveur. Rien ne sert d'aligner 
des pages d'informations à la suite 
les unes des autres, ou de refaire en 
moins bien ce que font les profes¬ 
sionnels. Essayez de vous démar¬ 
quer, en créant par exemple, un jeu 
d'aventures sur Minitel, ou en ciblant 
un public jusque là ignoré de la 
télématique. 

EXPLOITER LE "PLUS" 

DE LA TELEMATIQUE 

Votre serveur doit se servir des 
"plus" apportés par la télématique 
et le TELESTRAT. Ne créez pas un 
journal identique à celui sur 
papier. Pensez à une recherche 
multicritères pour des petites annon 
ces, à la mise à jour permanente 
pour des informations, à une plus 
grande convivialité dans vos jeux... 

EXPRIMER CLAIREMENT 
SES IDEES 

Avant de créer votre serveur, n'hé¬ 
sitez pas à écrire clairement vos 
idées sur un brouillon, et à faire préa¬ 
lablement une maquette de l'arbo¬ 
rescence et des pages écrans. 

FAIRE UN ACCES CLAIR 




CREATEURS 
DE SERVEURS 


Gilles BOUSSARD 


I réateurs et futurs créateurs de serveurs sur TELESTRAT, 
, voici quelques conseils glanés chez des professionnels de la 
télématique qui, je l'espère, vous seront utiles pour amélio¬ 
rer la qualité et la présentation de votre service télématique. 

En espérant bientôt lire dans ces pages les résultats de vos efforts, 
bonne création... 


c 


Même un néophyte doit pouvoir se 
servir, et circuler aisément dans 
votre serveur. Donc pas d'arbores¬ 
cences trop compliquées, et de trop 
nombreux renvois. Pensez aussi qu'a 
l'inverse, vos utilisateurs sont peut- 
être déjà des habitués d'un autre ser¬ 
vice télématique, en conséquence, 
respectez les protocoles déjà établis 
au niveau des touches de fonctions. 

FAITES UN SERVEUR 
GRAPHIQUEMENT AGREABLE 

Pensez au graphisme dans sa globa¬ 
lité pour donner un look à votre ser¬ 
veur. Non pas seulement'à un petit 
dessin pour boucher un trou ou faire 
joli, mais pour l'habiller d'une 
manière générale. Pourquoi ne pas le 
transformer en hôtel par exemple, où 
la réception serait le menu, les 
salons les pages d'informations, les 
chambres les boîtes aux lettres... 

SOIGNER L'UTILISATEUR 

Car un serveur sans un appel n'a pas 
de raison d'être. Evitez pour cela, les 
pages de temporisation intermina¬ 
bles, qui à la longue lassent. N'hési¬ 


tez pas non plus à aérer l'informa¬ 
tion. Contraignez-vous enfin à l'ou¬ 
vrir à des horaires précis, voir 24h00 
sur 24h00 pour que l'utilisateur s'y 
retrouve ! S'il est perpétuellement 
en dérangement, il risque d'être 
abandonné... 

SUIVRE L'EVOLUTION 

Surveillez le nombre d'appels (est-il 
en progression, diminution ou 
stagnation). 

A quelles heures s'effectuent-ils ? 
Dialoguez avec vos utilisateurs, via 
les BAL, pour leur demander ce qu'ils 
pensent de vos services, ce qu'ils 
désireraient trouver, car il faut... 

PERPETUELLEMENT 
AMELIORER LE SERVEUR 

En tenant compte des suggestions 
des utilisateurs, des nouvelles idées 
qui vous viennent, et des nouveau¬ 
tés en matériels et logiciels pour 
TELESTRAT. Sans pour autant le 
remanier entièrement toutes les 
semaines. Il faut fidéliser les utilisa¬ 
teurs, qui prennent parfois des habi¬ 


tudes, qu'ils perdent ensuite 
difficilement. 

AVOIR CONFIANCE 
EN SON TRAVAIL 

Car même si vous ne disposez que 
d'un monovoie sur le RTC, ne déses¬ 
pérez pas. Les micro-serveurs sur le 
réseau commuté intéressent de plus 
en plus de Minitelistes, alléchés par 
les tarifs téléphoniques (1 taxe tou¬ 
tes les 6 minutes dans l'aggloméra¬ 
tion, et tarifs dégressifs suivant les 
heures) et par la fraîcheur et l'origi¬ 
nalité des petits serveurs. Mais 
aussi, par le fait qu'ils visent un 
public précis, où mettent en contact 
des gens d'une même région, d'une 
même ville... 

LIRE THEORIC 

C'est encore le meilleur moyen 
d'être informé des dernières nou¬ 
veautés sur TELESTRAT, de faire 
connaître votre serveur, ou de l'amé¬ 
liorer grâce à des programmes utili¬ 
taires de qualité. (NDLR : merci pour 
ce dernier point... ). 
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XICOR 


Michel ZUPAN 


D ans bien des jeux de lettres, le principe ludique de base consiste a essayer de former 
des mots à partir d'une suite de lettres. Sans avoir une culture encyclopédique, 
LEXICOR se veut un bon partenaire : avec la rapidité du FORTH il sait composer 
des anagrammes intelligents ! 



Il n'est bien sûr pas question de fai¬ 
re jouer LEXICOR tout seul au 
SCRABBLE ou au DIAMINO : il fau¬ 
drait lui ajouter un imposant diction¬ 
naire sans compter l'apprentissage 
des règles et stratégies du jeu mais 
les quelques algorithmes qui le 
composent en font déjà un petit 
souffleur de solutions pour ce type 
de jeux. 

Imaginons une suite désordonnée 
de dix lettres : il y a exactement 3 
628 800 (factorielle 10) anagram¬ 
mes de ces 10 lettres ! Même en 
moulinant en Forth, nous n'arrive¬ 
rons jamais à les explorer tous en 
un temps raisonnable. Nous de¬ 
vons donc nécessairement passer 
par une fonction aléatoire pour gé¬ 
nérer une suite d'anagrammes diffé¬ 
rents des 10 lettres. 

Cette première fonction doit être 
aussi rapide que possible : nous 
choisirons celle qui consiste à per¬ 
muter à chaque étape deux lettres 
prises au hasard malgré une perle 
de temps de 1/10 ème (ou plus si 
certaines lettres se répètent) pour 
le risque de permuter une lettre 


avec elle-même dans un mot de 10 
lettres. 

Nous disposons maintenant d'un 
générateur d'anagrammes du gen¬ 
re presse-purée : rapide mais bête ! 

En effet, quand on vous donne la 
suite des lettres composant ORDI¬ 
NATEUR, il vous parait évident 
que TRRDIAOEUN a peu de 
chances d'être un mot de la langue 
française. Vous vous êtes génia- 
lement dit "la séquence TRR est 
débile..." : c'est exactement ce que 


nous devons faire faire à LEXICOR. 
Nous allons passer tous nos ana¬ 
grammes aléatoires au crible pour 
ne garder que ceux qui seront ju¬ 
gés "harmonieux" c'est-à-dire ré¬ 
pondant à quelques convenances 
phonétiques de notre langue. 

La fonction HARMONIE appli¬ 
quée à un mot délivre un booléen 
vrai ou faux selon que le mot est ju¬ 
gé harmonieux ou non : c'est le 
point sensible du programme et le 
plus délicat à concevoir. En l'absen¬ 
ce de toute compétence linguisti- 




SCRNt 2 ■ " 

( 0) \ Conception d'une table 

< n 

< 2) 0 VARIABLE TABLE G74 ALLOT \ TABLE 26*26 de 676 octets 

( 3) N F83 : CREATE TABLE 676 ALLOT 

( 4) 

< 5> : ELEMENT ( ascii-1 ascii-2 - adr ) \ donne l'adresse d’un 

< 6) ASCII A - SWAP ASCII A - \ élément de la TABLE 

< 7) 26 * + TABLE T ; 

( 8) 

< 9> : RANG < - > \ sert seulement à remplir TABLE 

(10) [COMPILE] ASCII 

<11> 26 0 DO BL WORD HERE < F83: supprimer HERE ) 

(12) NUMBER DROP OVER I ASCII A + ELEMENT C! 

(13) LOOP DROP ; 

(14) --> 

(15) 


7 


SCRN» 1 

( 0> \ LEXICOR : composeur d'anagrammes 
( 1) 

( 2) FORTH DEFINITIONS DECIMAL 

< 3) 

< 4) : RDM < n - m ) \ nombre aléatoire entre 0 et n-1 

< 5) 772 ( «304 timer du VIA sur tout OR1C > 

< 6) CP SWAP MOD ; 

< 7) 

( 8> : EXCHANGE ( adrl adr2 - > \ permute contenus de 2 mémoires 


< 9) DUP CP SWAP >R SWAP DUP CP R> C! C! ; 

( 10 ) 

(11) : MELANGE < adr long - > \ permute 2 caractères pris 

<12> 2DUP ROM + \ au hasard dans une chaîne 

(13) ROT ROT RDM + 

(14) EXCHANGE ; 

(15) --> 


que, je suis très loin de vous garan¬ 
tir que l'algorithme de LEXICOR soit 
le bon compromis entre rapidité et 
puissance de sélection. Ceux qui 
travaillent en F83 peuvent d'ailleurs 
vectoriser HARMONIE et tester 
plusieurs fonctions discriminantes 
de leur cru. 

Pour limiter les cascades de tests 
du genre voyelle-consonne, il est 
plus rapide d'utiliser une table de 
correspondance. Nous irons même 
jusqu’à créer un tableau à deux di¬ 
mensions permettant de typer les 
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SCRN# 3 


< 0) 

\ Remp1îssage de 

la 

table des correspondances 







( 1) 

N 


A 

B 

c 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

0 

P 

Q 

R 

S 

T 

U 

V 

w 

X 

Y 

Z 

< 2) 

RANG 

A 

0 

5 

5 

5 

1 

5 

5 

5 

4 

5 

5 

5 

4 

4 

1 

5 

5 

5 

5 

5 

4 

5 

5 

5 

4 

5 

< 3) 

RANG 

B 

5 

0 

0 

0 

5 

0 

0 

0 

5 

0 

0 

2 

0 

0 

5 

0 

0 

2 

3 

0 

5 

0 

0 

0 

5 

e 

< 4) 

RANG 

c 

5 

0 

3 

0 

5 

0 

0 

2 

5 

0 

3 

2 

3 

3 

5 

3 

0 

2 

3 

3 

5 

0 

0 

0 

5 

0 

( 5) 

RANG 

D 

5 

0 

0 

3 

5 

0 

0 

0 

5 

0 

0 

0 

0 

0 

5 

0 

0 

2 

0 

0 

5 

0 

0 

0 

5 

0 

< 6) 

RANG 

E 

1 

5 

5 

5 

0 

5 

5 

5 

4 

5 

5 

5 

4 

4 

1 

5 

5 

5 

5 

5 

4 

5 

5 

5 

4 

5 

< 7) 

RANG 

F 

5 

0 

0 

0 

5 

3 

0 

0 

5 

0 

0 

2 

0 

0 

5 

0 

0 

2 

0 

3 

5 

0 

0 

0 

5 

0 

( 8) 

RANG 

G 

5 

0 

0 

0 

5 

0 

0 

2 

5 

0 

0 

2 

0 

2 

5 

0 

0 

2 

0 

0 

5 

0 

0 

0 

5 

e 

( 9) 

RANG 

H 

5 

0 

0 

0 

5 

0 

0 

0 

5 

0 

0 

0 

0 

0 

5 

0 

0 

0 

0 

0 

5 

0 

0 

0 

5 

0 

(10) 

RANG 

I 

I 

5 

5 

5 

1 

5 

5 

5 

0 

5 

5 

5 

4 

4 

1 

5 

5 

5 

5 

5 

1 

5 

5 

5 

0 

5 

(11) 

RANG 

J 

5 

0 

0 

0 

5 

0 

0 

0 

5 

0 

0 

0 

0 

0 

5 

0 

0 

0 

0 

0 

5 

0 

0 

0 

5 

0 

(12) 

RANG 

K 

5 

0 

0 

0 

5 

0 

0 

0 

5 

0 

0 

2 

0 

0 

5 

0 

0 

2 

0 

0 

5 

0 

0 

0 

5 

0 

(13) 

RANG 

L 

5 

3 

3 

3 

5 

3 

3 

0 

S 

3 

3 

3 

3 

3 

5 

3 

3 

3 

3 

3 

5 

3 

3 

0 

5 

0 

( 14) 
(15) 

RANG 

--> 

M 

5 

3 

0 

0 

5 

0 

0 

0 

5 

0 

0 

0 

3 

3 

5 

3 

0 

0 

3 

3 

5 

0 

0 

0 

5 

e 


bre de types et en ajoutant des rè¬ 
gles au crible, nous améliorerons la 
qualité de l'algorithme : je vous 
laisse le soin d'y réfléchir. 

Le programme FORTH présenté 
est maintenant très simple : il con¬ 
tient à la fois les explications et les 
adaptations selon ORIC-1, 
ATMOS, TELESTRAT, FIG ou 
F83. Pour les vieux FIG, les mots 
qui peuvent vous manquer,'comme 
ASCII, ont été définis dans le nu¬ 
méro 24 de THEORIC. 

L'utilisateur de LEXICOR n'a plus 


676 doublets possibles de deux let¬ 
tres. Pour simplifier, nous n'utilise¬ 
rons que six types de doublets : 

- type 0 : 

doublet interdit. Exemple B-K 

- type 1 : 

deux voyelles. Exemple l-A 
-type 2 : 

consonnes liées. Exemple B-R 

- type 3 : 

consonnes juxtaposées. Exemple 
R-T 

- type 4 : 

diphtongue. Exemple A-N 



SCRN# 4 

























L 

LJ 

( 0) 

\ Remplissage de 

la 

table (fin) 













( 1) 

\ 


A 

B 

c 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

0 

P 

Q 

R 

S 

T 

U 

V 

W 

X Y 

2 

( 2) 

RANG 

N 

5 

3 

3 

3 

5 

3 

3 

0 

5 

3 

3 

3 

0 

3 

5 

0 

3 

3 

3 

3 

5 

3 

3 

0 5 

3 

( 3) 

RANG 

0 

1 

5 

5 

5 

1 

5 

5 

5 

4 

5 

5 

5 

4 

4 

0 

5 

5 

5 

5 

5 

4 

5 

5 

5 4 

5 

( 4) 

RANG 

P 

5 

0 

0 

0 

5 

0 

3 

2 

5 

0 

0 

2 

0 

3 

5 

3 

0 

2 

3 

3 

5 

0 

0 

0 5 

0 

( 5) 

RANG 

Q 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

3 

0 

0 

0 0 

e 

( G) 

RANG 

R 

5 

3 

3 

3 

5 

3 

3 

2 

5 

3 

3 

3 

3 

3 

5 

3 

3 

3 

3 

3 

5 

3 

3 

3 5 

3 

( 7) 

RANG 

S 

5 

3 

3 

3 

5 

0 

0 

2 

5 

0 

3 

0 

3 

3 

5 

3 

3 

3 

3 

2 

5 

3 

3 

0 5 

e 

( 8) 

RANG 

T 

5 

0 

0 

0 

5 

0 

0 

2 

5 

0 

0 

3 

3 

0 

5 

0 

0 

2 

3 

3 

5 

0 

0 

0 5 

e 

( 9) 

RANG 

U 

1 

5 

5 

5 

1 

5 

5 

5 

4 

5 

5 

5 

5 

5 

1 

5 

5 

5 

5 

5 

0 

5 

5 

5 4 

5 

(10) 

RANG 

V 

5 

0 

0 

0 

5 

0 

0 

0 

5 

0 

0 

2 

0 

0 

5 

0 

0 

2 

0 

0 

5 

0 

0 

0 5 

e 

(11) 

RANG 

W 

5 

0 

0 

0 

5 

0 

0 

0 

5 

0 

0 

0 

0 

0 

5 

0 

0 

0 

0 

0 

5 

0 

0 

0 5 

0 

(12) 

RANG 

X 

5 

0 

3 

0 

5 

0 

0 

0 

5 

0 

0 

0 

0 

0 

5 

3 

0 

0 

0 

3 

5 

0 

0 

0 5 

0 

(13) 

RANG 

Y 

1 

5 

5 

5 

1 

5 

5 

0 

0 

0 

S 

5 

5 

5 

1 

5 

5 

5 

5 

5 

] 

5 

5 

5 0 

5 

(14) 

RANG 

2 

5 

0 

0 

0 

5 

0 

0 

0 

5 

a 

0 

0 

0 

0 

5 

0 

0 

0 

0 

0 

5 

0 

0 

0 5 

0 

(15) 

FORGET 

RANG 

~) 





















• 



SCRN# s 

< 0) \ Fonction 'HARMONIE' d'un anagramme 

< 1> : HARMONIE < adr long - flag ) 

< 2) 0 SWAP 1- 0 DO 

( 3> OVER I + DUP C0 SWAP 1+ C8 ELEMENT C8 

( 4) -DUP < ou ?DUP ) 0= 

< 5> IF DROP 0 LEAVE \ type Interdit : on abandonne le mot 

< 6) ELSE 2DUP = OVER 4 < ANC 

( 7) IF 2DR0P 0 LEAVE \ deux types Identiques 

< 8) ELSE SWAP OVER 3 = SWAP 

s 9) DUP 0= SWAP 2 = OR AND \ cas du type 3 

<10> IF DROP 0 LEAVE 

<11> THEN THEN THEN 

(12> LOOP SWAP DROP DUP 

03) 0= SWAP 2 = OR 0= ; \ cas du type 2 en tin de mot 

04) —> 

(15) 


qu’à frapper ANA suivi d'une suite 
de lettres majuscules : le program¬ 
me débite jusqu'à plus soif tous les 
"mots" qui lui paraissent faire l'af¬ 
faire... 

C'est ainsi que vous aurez la sur¬ 
prise d'apprendre que le TELES¬ 
TRAT se prend pour une STAR¬ 
LETTE (fallait le trouver !) et qu'un 
ORDINATEUR n'est souvent 
qu'un ERURADOTIN cherchant à 
vous ETOURNADIR de sa fausse 
ANDROTURIE ! 


Tous à vos dictionnaires ! 


-type 5: 

mixte. Exemple T-A ou A-T. 

Si maintenant nous analysons les N- 

I doublets d'un anagramme de N 
lettres, nous appliquerons pour rè¬ 
gle d'éliminer ceux contenant les ty¬ 
pes : 

0, -3,1-1, 2-2, 2-3, 3-3, 2- 

C'est-à-dire contenant un type 0, 
débutant par un type 3, possédant 
deux mêmes types à la suite incom¬ 
patibles ou finissant par un type 2. 

II est certain qu'en modifiant le nom- 


SCRN# 6 


( 0) \ ANA 

(MOT) : affiche une 

( 1) 


( 2) : ANA 

BL WORD 

( 3) 

HERE COUNT 

( 4) 

BEGIN 

( 5) 

2DUP MELANGE 

( 6) 

2DUP HARMONIE 

( 7) 

IF CR 2DUP TYPE 

( 8) 

THEN 

( 9) 

7TERMINAL 

(10) 

UNTIL 

(11) 

2DR0P ; 

(12) 


(13) ;S 


(14) 


(15) 





série d'anagrammes ‘harmonieux' 

\ prend le mot qui suit ANA 
\ F83: supprimer HERE 
\ répéter : 

S mélanger deux lettres 
S est-ce un mot harmonieux 7 
\ oui : 1'afficher 
\ non : passer au suivant 
\ F83 : ?STOP , TELEFORTH: 7TERMST0P 
\ Jusqu'à ordre d'arrSt au clavier 


31 





















ROGRAMMATEUR 

D'EPROM 



Francis BOURDON 


Bi 


^eaucoup de passionnés d'électronique ou de micro-informatique ont 
.besoin de programmer des EPROM (mémoires programmables et 
‘effaçables), afin d'y Implanter leurs logiciels. Un programmateur 
d'EPROM coûte très cher, aussi y a-t-il Intérêt à utiliser les ressources d'un 
micro-ordinateur. 





Pour programmer une EPROM, il faut 
envoyer les données correspondan¬ 
tes, prélevées dans la mémoire de 
l'ordinateur gérant le programma¬ 
teur. Ceci doit être effectué en res¬ 
pectant rigoureusement certains 


paramètres, faute de quoi l'EPROM 
serait mal programmée, voire 
détruite. 

Le programmateur que nous propo¬ 
sons ici assure l'interface entre 
l'ORIC et l'EPROM. Le programme à 
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transférer dans l'EPROM sera con¬ 
tenu dans la mémoire de l'ORIC. Un 
logiciel effectue le transfert des don¬ 
nées et la gestion des différents 
signaux. 

Ce logiciel a été développé pour 
JASMIN, avec lequel le programma¬ 
teur est entièrement compatible. 
Ceux qui ne possèdent pas le lecteur 
de disquettes devront modifier le 
programme en conséquence. De par 
sa structure modulaire, cette tâche 
devrait s'avérer facilement 
réalisable. 

Après le BOOT, le système propo¬ 
sera un menu que l'utilisateur devra 
suivre. Il est impératif de ne pas ten¬ 
ter l'insertion ou l'extraction d'une 
EPROM sans avoir appelé l'option 
correspondante du menu. 

Le programmateur est autonome au 
point de vue alimentation, celle-ci lui 
étant directement fournie par le sec¬ 
teur. A la mise sous tension, une 
diode verte signale la présence du 
-l- 5 V. Une diode jaune s'allume lors 
de l'application du 21,5 V de pro¬ 
grammation, une rouge témoigne de 
la présence de Vpp sur l'EPROM. 
La photographie illustrant cet article 
donnera au lecteur une idée de la 
réalisation de l'auteur. Le câblage est 
en wrapping, technique parfaite¬ 
ment adaptée à la réalisation de 
maquette. Il n'existe pas de circuit 
imprimé. __ 

Bonne réalisation 








§ < < < < 2 
è 

9 


§Ê8SS8Sq83<§ 
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PUB ! 


Francisco BUA NOVO 


L! 


es journaux lumineux, vous connaissez ? Oui, bien sûr ! Ce petit 
programme permet d'écrire des textes et de les faire défiler 
isur l'écran en caractères géants. Le tout animé par une routine 
en langage machine. Les messages créés peuvent être sauvegardés 
sur cassette et réutilisés par la suite. A taper Impérativement pour 
animer une vitrine ou simplement, pour épater les copains ! 
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1 REH ++++++++++++++♦++++++++ 

2 REH +++++++ PUB ++++++♦+ 

3 REH +++♦++ créé par++++++++ 

4 REH ++ BUA NOVO Frcisco ++ 

5 REH ++ Le 15 Octobre 86 ++ 

6 REH +++++++*+++++++++++++++ 

9 HIHEH41F50:GOSUB70 

10 CL3.PAPER0:INKI:POKE16383,96 :GOT035 

11 B-14000 :CLS 

12 PR1NT :PRINT:PRINT'Entrei le «essage,si vous entendez un" 

13 PRINT:PRINT"P1NG appuyez sur RETURN et attendez.*:PRINT:PRINT 

14 INPUT "HESSAGE:*-A4 

15 FOR H=1T0LEN(A<) 

17 C=ASC(HID*(A*,M,1>) 

19 POKEB,C:DOKEB+1,8224:POREB+3,00:B=B+1 
21 NEXT 

23 PRINT:lNPUT'Le «essage est-il fini (OUI/NON)*;A< 

25 IFAt=*OUI‘THEN35 

27 lFA$=’NON“THENINPUT*Suite «essage :*;A»:G0T015 
29 POKEIBB80,00IDOKEIIFFE,14000 

31 CLS 

32 POKE618,10: CALLI1F56 

35 CLS:PRINT:PRINT:PRINT* 1 - Nouveau Hessage * 

37 PRINT:PRINT * 2 - Sauvegarde «essage sur K7 

39 PRINT:PRINT* 3 - Lecture «essage sauvegarde* 

41 PRINT:PRINT* 4 - Affichage ECRAN * :PRINT:PRINT:PRINT 

50 PRINT;PRINT:PRINT* VOTRE CHOIX *;:GETT* :INPUTN 
52 1FN <1ORN> 4 THEN50 

55 ON N GOTOl1,57,63,29 

56 G0T035 

57 INPUT "Voulez vous donner un no« a l'enregistre«ent*:D$ 

58 IFDt=“NON"ORD4=*non"THEN Di=** 

59 lFD( = *OUI*ORD(=*oui"THENINPUT’DONNEZ LE NOH*;Dt 

60 PRINT:PRINT:PRINT* Hettez le «agneto en «arche (PLAY) " 

61 PRI NT : PRINT" APPUYEZ SUR UNE TOUCHE * :GETT t.CSAVEDt,ni3FFF,EB+ 3,AUTO 

62 G0T035 

63 INPUT ‘Tapez le noa du «essage a lire ou la lettre (S) puis RETURN *;Di 

64 IF D»=*S*THEND« = " 

66 CLOAD D< 

67 G0T035 

70 FORA=#1F56 TOI2098 
73 READB*:B=VAL(***+BI):POKEA,B 
75 NEXT:RETURN 

77 DATAEA,AO,FF,C8,B9,66,1F,99,80,BB,D0,F7,4C,F7,1F.EA,06,43,72,65,65,20.70,61 
79 DATA72,20,42,55,41,20,4E,4F,56,4F,20,46,72,2E,05,53,54,4F,50 > 20,3D,3E,20,03 
81 DATA45,53,43,20,00,00,A0,00,8C,FC,1F,A0,40,8C,FF,1F,60,EA,EA,AD,DF,U2,C9,9B 
83 DATADO,57,20,8C,1F,60,20,8C,1F,4C 1 F7,1F,EA,EA,EA,EA,A2,00 I B5,Û4,20,BB,1F ) E8 
85 DATAEO,08,DO I F6,60,2A,95,04,BO,06,A9,20,9D,98,20,60 I A9,2A,9D,98,20,6Û I EA,EA 
87 DATAAO,03,A2,00,A9,BB,85,01,A9,A8,85,00,B1,00,88,91,00,A5,00,69,28,85,00,A5 
89 DATA01,69,00,85,01,E8,C8,EO,1C,DO,E9,C8,CO,28,D0,DA,60,A9,00,85,01,A0,00,B9 
91 DATAOO,40,85,00,85,OD.CO.FF,D0.03.EE,FF,lF f C9,00,D0,0B,4C,A4,1F,EA,EA,EA,EA 
93 DATAEA,EA,EA,EA,AO,00,C8,A5,00,69,07,85,00,A5,01,69,00,85,01,C4,OD.DO,EF,A9 
95 DATAB4,A2,00,86,02,85,03,A5 I 02,65,00,85,02,A5,03,69,00,65,01,8D,4F,20,A5,02 
97 DATAE9.01,8D,4E,20,A2,00,BD,00,B5,95,04,E8,EO,08,DO,F6,EA,AO,07 ) 98,48,20,AD 
99 DATA1F,A9,BD,8D,72,20,A9,OE,69,28,8D,71,20,A2,00 ,BO, 98,20,8D,77,BE,AO,71,20 
101 DATA69,28,8D,71,20,AD,72,20,69,00,8D,72,20,E8,E0,08,D0,E5,20,CE,1F,68,A8,88 
103 DATAC0,00,D0,C8,EE,FC,1F,4C,98,1F,20,55,55# 



35 


! TRAME 


2ème PARTIE 

Jean-Marc RIVES 



4 près avoir créé la routine "TRAME” (voir le précédent numéro de 
THEORIC), il reste à l'utilisateur à définir les profils binaires des tra¬ 
mes qu'il désire employer par la suite. Ceci sera fonction de ses 
besoins... Néanmoins, pour simplifier la tâche à la plupart des lecteurs 
n'ayant pas de besoins trop spécifiques, l'auteur propose un petit pro¬ 
gramme générant une cinquantaine de motifs, tels que ceux qui existent 
sur Mac Intosh. Amusez-vous bien ! 


Le programme génère et implante 50 
motifs de trames "prêts à l'emploi”. 
Ces motifs sont chargés à partir de 
l'adresse #9C00 (zone réservée au 
“deuxième clavier"). Ces motifs 
sont constitués de 8 octets chacun. 
Les trames ainsi constituées devront 
être sauvegardées, sous leur forme 
binaire, par un CSAVE "MOTIFS”, 
A#9C00, E#9D90. Attention, si la 
sauvegarde est faite pendant que 
l'ORIC est en mode HIRES, les tra¬ 
mes devront être rechargées dans ce 
même mode. Il en va de même en 
mode TEXT... 


Exemple d'application de l'instruc¬ 
tion ! TRAME, s'il en est besoin, un 
mini "DAO", utilisable après avoir 
chargé la routine de remplissage et 
les motifs de trame. Ecrit en BASIC, 
toutes les commandes se font avec 
les touches de direction, pour dépla¬ 
cer le curseur. La barre d'espace ser¬ 
vira à valider les options, au moyen 
d'un appui bref. Elle commandera 
également la bascule "FILL-DRAW", 
en positionnant le curseur sur la case 
correspondante. La trame sélection¬ 
née apparaîtra au-dessus de la case 
"FILL-DRAW". En "cliquant" sur 


cette case, toujours au moyen de la 
barre d'espace, on provoquera le 
passage d'un jeu de trame à l'autre 
(2 fois 24 trames). La sélection 
d'une trame s’effectue, bien 
entendu, en amenant le curseur sur 
la case du motif choisi et en validant 
au moyen de la barre espace. 

Enfin les touches 1,2, 3 et 4 servent 
à choisir une vitesse de déplacement 
du curseur parmi 4. 

ATTENTION, ce "mini-DAO" n'a 
pas d'autre prétention que de servir 
à démontrer quelques possibilités de 
l'emploi des trames. 



1 (179) REM=============================== 

2 ( 179) REM===="”===="================= 

3 (116) REM===50 TRAMES PRETES A L'EMPLOI» 

4 (179) REM==“=========================== 

5 (179) REM===™======:================= 

10 (155) CLS 


20 (2; PRINT;PRINT.PRINT’CE PETIT PROGRAMME FOU 
RNI 50 TRAMES' 

23 -233) PRINT-PRETES A L'EMPLOI 
25 (63) PRINT:PRINT-IL LES IMPLANTE A PARTIR DE 
L'ADRESSE' 

27 (150) PRINT"i9C00 (il est alors en «ode HIRES) 
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30 (137) PRINT : PRINT * UNE FOIS LES TRAMES IMPLANTE 

ES" 

33 (73) PRINT'SAUVEZ-LES EN FAISANT:* 

35 (224) PRINT:PRINT" CSAVE NOM',AI9C00,EI9 
D90 

37 (165) PRINT PRINT-ET UTILISEZ-LES DANS LE MINI 
.DAO.BASIC* 

40 (47) PRINT ; PRINT * APPUYEZ UNE TOUCHE*:GETA$ 

50 (111) AD= «9C00: HIRES : PRINT * IMPLANTATION DES TR 
AMES' 

55 (254) FORJ=1T050 
60 (246) FORI=0TO7 
65 (151) READDT:POKEAD+I,DT 
70 (75) NEXT:AD=AD+8 

75 »I69I NEXT(PING:PRJNT'RESTEZ EN MODE MIRES POU 
R LES SAUVER*:: END 

100 (217) REM-GRISES 

105 (233) DATAO,0,0.8,0,0,0.0 

110 (224) DATAO,0,0.8,0,0,0,128 

115 (232) DATAO,0.0,136,0,0,0,136 

120 '7) DATAO,34,0,136,0,34.0,136 

125 (250) DATAO,170,0,170,0,170,0,170 

130 (76) DATA85.170,85,170,85,170,85,170 

135 (164) DATA255,85,255.85.255,85.255,85 

140 <218) DATA255,221,255,119,255,221,255,119 

145 (91) DATA255,255,255,247,255,255,255,127 

150 (91) DATA255,255,255,247,255,255,255,255 

155 < 94) DATA255,255,255,255,255,255,255,255 

160 (92) REM.-RAYURES ET QUADRILLAGES 

165 (30) DATAI,1.1,1,1,1,1,1 

170 ‘98) DATAI7,17,17,17,17,17,17,17 

175 (94) DATA170,170,170,170,170,170,170,170 

ISO (117) DATA255,0,0,0,0,0.0,0 

185 (160) DATA255,0,0,0,255,0,0,0 

190 U38) DATA255,0,255,0,255,0,255,0 


195 (10) DATAI.2,4,8,16,32,64,128 
200 (239) DATAI7.34,66,136,17,34,68,136 
205 (146) DATAI28,64,32,16,8,4,2,1 
210 (119) DATA 136,68,34,17,136,68,34,17 
215 (236) DATA255,1,1,1,1,1,1,1 
220 (211) DrlTA255,17,17,17,255,17,17,17 
225 (127) DATAI28,65,34,20,8,20,34,65 
230 (61) DATAI36,85,34,85,136,85,34,85 
235 (115) DATA96.192,129,3,6,12.24.48 
240 (163) DATA48,24,12,6,3,129,192,96 
245 (168) DATAI59,63,126.252,249,243,231,207 
250 (2) DATA207,231,243,249,252,126,63,159 

255 (198) REM.-FANTAISIE 

260 (237) DATA255.85,170,85,170,85,170,85 
265 (195) DATAIS,15,15,15,240,240.240,240 
270 (164) DATA255,127,62,28,8,28,62,127 
275 (59) DATA248,116,34,71,143,23,34,113 
230 (166) DATA136,84,34,69,136,20,34,65 
285 (198) DATA255,64,64,64,255,4.4.4 
290 '54) DATA255,64,255,4,255,64,255,4 
295 <55 DATAI,130,68.40,16,32,64,128 
300 (231» DA7A68,136,17,170,68,136,17,170 
305 (125) DATA132,132,132,135,132,132,132,252 
310 (153) DATAI28,64,34,4,8,4,34,64 
315 (137) DATAI,2,32,16,8.4,64,128 
320 '216) DATA 111,182,176,240,246,107,11,15 
325 (115) DATA3,51,51.48,6,102,102,96 
330 (23«) DATA6.198,192,24,153,129,48,48 
335 (199) CATA14,251,241,251.14,238,174,238 
340 (166) DATAI 1,11,11,251,0,251,251,11 

345 (82) REM-TUILES ET DERIVES 

350 (43) DATA56.68.130,3,14,16,32,32 
355 MO) DATA8.112,136,5,2,2,4,4 
360 (64) DATA57,85,147.17,57,85,147,17 
365 (125) DATA128,128,65,62,8.8,20,227 



1 (114) ftEM====EXEMPLE D'UTILISATION====== 

2 (246) REN—=DE L'INSTRUCTION 'TRAME—— 1 2 3 4 5 6 7 8 

3 (58* REM=======MINI.DAO.BASIC========== 

4 (4) RtN——Auteur RIVES Jean-Marc—=== 

5 (179) REM— 

6 (179) REM— 

7 (203) KIMEM(»2FFF) 

8 145) TEXT.PAPERO. iNK7;CLS:GOSUB3055 

10 (53) AF(1)=570.AF(2)=570:EF(1)=600:EF(2)=600: 
AF(3j= 560:EF(3)=590 
15 (76) AC(1)=705:AC(2)=755:ACi3)=920 
20 (7) A$(2) ï “DRAV’:T2i=*FILL" 

25 (149) At(3)="UND0":A4(4)=*ERASE* 

50 (147! DINV1(3),72(3) 

55 (62) FORI=1T03:READV1(I),V2(I):NEXT 
60 (13) DATA12,20,24.10,6,6 
65 (106) REM. 















70 (136) X=120:AX=X 
75 (43) Y=100:AY=Y 
77 (213) XH=12 

30 (lûù) REM. 

83 (52) GOSUB2010 :GOSÜB2085:GOSUB3005 
85 (102) Z=3:A2=3:VT=1:D=-1:GOTO500 
100 (141) REM===============CLAVIER== 

105 (174) REM==========“===="====" 

110 (174) REM== ==== ================== 

115 (179) Vl-Vl(2):V2=V2(Z) 

120 (84) A=PEEK(4208).ON-<A=#38)G0T0120 

125 (38) OMVTGOSUB175 

130 (198) DX=ABS(A=IBCANDX+V1<240) 

135 (47) DX=DX+(n=«ACANDX-Vl>XW' 

140 (204) DY=AB£(A=»B4AHDY+V2<200) 

145 (250) DY=DY+(A=#9CANDY-V2>-1) 

150 (115) BR=(A=*84) 

153 (111! ON-((DX+DY+BR)=0)GOTOl20 
155 (115) VI(2)=V1:V2(2)=V2 
160 (163) RETURN 

165 (10) REM.VITESSE— 

170 (174) REM. 

175 (41) IFA=iA8THENVl=l:V2=1 
180 (212) IFA=IB2THENV1=6:V2=6 
185 (125) IFA=tB8THENVl= 12:V2=12 
190 t109) IFA=#9ATHENV1=24:V2=24 
195 (163) RETURN 

200 (53) REM.-TRANSFORM- 

205 (174) REM. 

210 (47) AX=X:AY=Y 
215 (233) X=X*DX4V1(2) 

220 (1* Y=Y+DY*V2(2) 

225 (163) RETURN 

300 '182! REM==========NOUVELLE ZONE== 

305 (177) REM========================= 

310 (177) REM = =======- ===== - === - ===== - 

315 (177) X=-27t (2=2)-49t(2=3)-391(2=1ANDA2=3)-27 
4(2=1ANDAZ=2) 

320 (213) Y=(INT.Y/20)420+6)t-(2=l)-(INT(Y/10)710 
+1)»(Z=2)-Y»(2=3i 
322 (34) REMY=Y-(Yt(Y=3>) 

325 (59) VT=-(2=3) 

330 (156) RETURN 

400 (181) REM===========BARRE ESPACE?== 

405 (170) REM========================== 

410 (170) REM===================="==== 

413 ( ! 14 ) GOSUB115 :GOSUB210 
415 (255) IFBRTHENGGSUBAC(2) 

150 (240) REM===========AIGUILLAGE===== 

455 (170) REM============="======== =Î = 

460 (170) REM========="===="======= =:: 

465 (143) AZ=2 

470 (131) 2=-((X<=48)AND(Y<=160)) 

475 (237) 2=2+((X<=48)AND(Y>160m-2 
480 (76) Z=Z+(X>48)*-3 
490 (91) ON-i20A2)GOSUB315 
495 (90) GOSUB EF(A2) 

500 (6) GOSUBAF(2) 

510 (179) G0T0413 


550 

(173) 

R01========================== 

JJJ 

(173) 


560 

(168) 

CURSETX,Y,2 :RETURN 

565 

(173) 


570 

(206) 

CURSETX,Y,3 

575 

(232) 

CHAR 126,0,2 

580 

(157) 

RETURN 

585 

(23) 

REM. 

590 

(31) 

CURSETAX,AY,2:RETURN 

595 

(23> 

REM. 

600 

(183) 

CURSETAX.AY.3 

610 

(133» 

CHAR126,0,2(RETURN 

700 

(205) 


705 

(72) 

NT=INT((X-12)/12)*8+INT(Y/20)-24ï<TA>24 

710 

(14) 

MY=Y(Y=161 

715 

(158) 

GOSUB2165 

720 

(164) 

'TRANE13,162,NT,I9C00 

725 

(55) 

Y=MY:CURSETX.Y,3 

730 

(157) 

RETURN 

750 

<200) 

REM=========AC(2 i =============== 

755 

(127) 

ET=INT((Y-150)/10) 

760 

(210) 

ONETGOSUB770,780.820,860:RETURN 

765 

(1) 

REM.NOUVELLES TRAMES- 

770 

(158) 

GOSUB2010 

775 

(18) 

CURSETX,Y,3(RETURN 

780 

(84) 

REM . DRAü/FILL . 

785 

(157) 

GOSUB2165 

790 

(105) 

Tl*=Ai(2):A»(2)=T2*:T24=Tl» 

795 

(152) 

F=D:D=NOTD 

809 

(155) 

GOSUB2130 

305 

(160) 

G05UB885 

810 

(244) 

GOSUBAF(2) 

315 

(13) 

CURSETX,Y,3(RETURN 

820 

013) 

REM . UNDO . 

825 

(174) 

DOKEDE.HE 

330 

< 1 33 » 

DOKEAR.EC 

835 

(157) 

O3KEL0,8000 

840 

(1691 

CALLMV 

845 

(6) 

IFMT(>TATHENTA=TA-24:GOSÜB2010 

850 

(62) 

ON-(Ml<>NT)GÜSUB710 

855 

(79) 

GOSUBAF(2)(RETURN 

860 

(74) 

REM.ERASE. 

865 

(170) 

CURSET48,0,3 :FILL200.32,64 

870 

(205) 

CURSET48,0,1 DRA¥0.199.1 

875 

(158) 

RETURN 

880 

(121) 

REM . -ECRAN-'MEMOIRE . 

385 

(164) 

DOKEDE.EC 

890 

(182) 

DOKEAR.NE 

895 

(157) 

O0KELO,8000 

900 

(169) 

CALLMV 

905 

(53) 

MT=TA:H1=NT 

910 

U58) 

RETURN 

915 

(170) 

REM======AC(3)================== 

920 

(72) 

IFFTHEN1055 

930 

(143) 

REM - DRA* .. 

931 

(225) 

REM - . 

935 

(102) 

XM=48:OX=X:OY=Y 

940 

(51) 

CX=0(CY=0 

945 

(252) 

GOSUB115 :GOSUB210 




















































950 (81) ST=965:GOSUBIOOO 
955 (200) CURSETOX,OY,FC 
960 (105) DRAVCX,CY,FD:GOTOST 
965 (94) CX=CX+VH3)*DX 
970 (102) CY=CY+V2(3)*DY 
975 (154) GOSUBIOOO 
980 (122) ST=945:G0T0955 
985 (14) FC=-2*(FC=1)-3*(FC=3) 
990 (218) CURMOVO,0,FC :XM=12 
995 (158) RETURN 


1000 

(252) 

NL=((CX=0)AND(CY=0)) 

1005 

(72) 

ON-BRGOTO1030 

1010 

(244) 

FC=3 

1015 

(220) 

FD=-3*NL 

1020 

(170) 

FD=FD-2*(FD<>3) 

1025 

(159) 

RETURN 

1030 

(115) 

ST=985:ON-NLGOTO1040 

1035 

(97) 

FC= 1 : FD= 1 : RETURN 

1040 

(97) 

FC=3:FD=3:RETURN 

1045 

165) 

REM-.FILL. 

1050 

(42) 

REM. 

1055 

(151) 

CURSETX,Y,2 

1060 

(33) 

1 TRAMEX,Y,NT,»9COO 

1065 

(54) 

CURSETX ■ Y, 2 : RETURN 

2000 

(54) 

REM===—=—CADRE 1============== 

2005 

(181) 

REM==-=====-====-======--- 

2010 

(102) 

CURSET12,0,1 : FILL160,6,64 

2015 

(39) 

FORI=12T048STEP12 

2020 

(101) 

CURSET1,0,1 :DRAWO,160,1 

2025 

(158) 

NEXT 

2030 

(42) 

FORI=0T0160STEP20 

2035 

(214) 

CURSET12,1,1 :DRAW36,0,1 

2040 

(158) 

NEXT 

2045 

>39) 

:PTA=48THENTA=0 

2050 

(74) 

FORI=18T044STEP12 

2055 

(42) 

FOR J=1OTOl55STEP20 

2060 

(94) 

1 TRAME I,J,TA,I9C00 

2065 

(21) 

TA=TA+1 

2070 

(27) 

NEXTJ,I:RETURN 

2075 

(58) 

REM=====—=CADRE 2============- 

2080 

(190) 


2085 

• 191) 

CURSET12,160,1 :DRAWO,39,1 

2090 

(208) 

CURSET48.160,1:DRAWO,39,1 

2095 

(54) 

FORJ=160T01^OSTEPl0 

2100 

(224) 

CURSET12 r J■1)DRAW36,0,1 

2105 

(159) 

NEXT 

2110 

(151) 

FORET 1 2T04 

2115 

(178» 

GOSUB2130 

2120 

(60) 

NEXT .'RETURN 

2125 

(159) 

REM.AFFICHE NOMS. 

2130 

(39) 

L=LEN(A$(ET)) 

2135 

(200) 

CURSET14,152+ET*10,3 

2140 

(182) 

FORI=1TOL 

2145 

(245) 

GHARASC(MID<(A♦(ET),1,1)),0,1 

2150 

(248) 

CURMOV6,0,3 

2155 

(bO) 

NEXT:RETURN 

2160 

(1) 

REM.VIDE UNE CASE. 

2165 

(174) 

CURSET12,Y,2 : FILL9,6,64 

2170 

(94) 

CURSET12,Y,1:DRA¥0,8,1 


2175 (155) RETURN 

3000 (125) REM========ORICl/ATMOS'>========= 

3005 (4) ECMA000 

3010 (40) MEM3000 

3015 (73) 01=DEEK(*FFFE)=i228 

3020 (118) AT=N0T01 

3025 (234) DE=l200t-01+»OCt-AT 

3030 (212) AR=l202t-Oltl0E*-AT 

3035 (0) L0=*204t-01+»1Ot-AT 

3040 (124) MV=#EC0C*-01+fEDC4*-AT 

3045 (150) RETURN 

3050 (21) REM========1NIT================= 

3055 (118) ON-(DEEK(I2F5)=19728)GOT03080 
3060 (147) PRINT: PRI NT : PRINT’LA ROUTINE DE TRAME 
N'EST PAS CHARGEE" 

3065 (203) PRINT"OU N'EST PAS INITIALISEE." 

3070 (145) PRINT: PRINT"CHARGEZ LA OU INITIALISEZ 
LA ( DOKE# 2F5119728 ). " 

3075 (61) PRINT’PUIS REFAITE RUN": END 
3080 (177) H1RES 
3085 (83i PAPER7:INKO 
3090 (150 » GOSUB4000 

3095 (143) PRINTiPRINT* ===MINI.DAO.BASI 

G-=" 

3100 (53) FORI=0TO7 
3105 (183) POKE49800+12648+1,63 
3110 (163) NEXT 
3115 (151) RETURN 

4000 '229i P=PEEKi#26A)ANDIFEORI08 
4005 (71) POKEI26A,P :RETURN • 


1 


REMPLISSEZ VOTRE 


bulletin d 


abonnement 


FIN DECEMBRE, IL SERA 
TROP TARD ‘ 


39 































BIDOUILLE 




OGRAMMEZ 


ET CONTROLEZ LA ROTATION D'UN MOTEUR 
AVEC VOTRE ORDINATEUR (ATMOS OU ORIC1) 

Aème Partie 

SOURCE COMMENTÉ 


Maurice LE GUYADER 


L es lecteurs intéressés par la programmation du VIA 6522 pourront se 
reporter à la revue THEORIC n° 22 (juillet/août 1986) pages 9 à 13 et à 
l'ouvrage L'ORIC A NU de Fabrice BROCHE. 

Le listing 1 correspond au source (super moniteur THEORIC n° 12 de 
septembre 1985 pages 43 à 49). Læs organigrammes 1 et 2 vous aideront à 
comprendre le fonctionnement, notamment celui du sous programme de 
contrôle du passage des balais sur une lame de laiton avec la détection 
éventuelle d'une panne si l'opération prends plus de 0,5 seconde (moteur 
arrêté, alimentation coupée, etc). 




ISTING 1 


106 

107 

108 

109 

110 
111 
112 

113 

114 


100 

e 


115 


00 aéaoire octet PORT A 

130 

a 

101 

a 

» 

! prograaaation d’un aoteur ! 

116 

$ 

(prise iapriaante) 

131 

i 

102 

i 

i de barbecue transforaé i 

117 

i 

bits en sortie 

132 

a 

» 

103 

a 

1 par la sortie iapriaante ! 

118 

i 

bit 0 relais avant 1 arrière 0 

133 

; 

104 

a 

! (interface k construire) ! 

119 

a 

bit 1 relais aarche 1 arrêt 0 

134 

i 

105 

a 

» 

! source pour ATMOS ! 

120 

1 

bit 2 libre 

135 

î 


! (Super Moniteur Théorie) ! 121 ; 

! assemblage en *7000 1 122 ; 

♦...♦ 123 ; 

RUN 1000 pour les caractères 124 ; 

à ( ç ê e • 6 e 125 ; 

(touches 0 ! \ { > I 1 £) 126 ; 

♦ .+ 127 i 

! occupation page 01 128 ; 

♦ .♦ 129 ; 


bit 3 libre 
bit 4 libre 
bits en entrée 

bit 5 contrôle contact eoteur 
bit 6 libre 
bit 7 libre 

les bits libres du PORT A ne se¬ 
ront pas aodlfiés par ce prograi 
>e et peuvent servir k d'autres 
{onctions à condition de garder 
les bits 0,1,2,3,4 en sortie, 
les bits 5,6,7 en entrée et de 
aéaoriser l'octet du PORT A en 
00 dans un prograate en BASIC ou 
en Langage Machine 
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136 

137 

138 

139 
148 

141 

142 

143 

144 

145 

146 

147 

148 

149 
158 

151 

152 

153 


81 libre 

82 libre 

83 aéaoire noabre de pas 

84 teaponsation arrêt avant 

85 teaponsation arrêt arrière 

86 teaporisation frein avant 

87 teaporisation frein arrière 
(teapos données par le basic) 

88 aéaoire sens de rotation 

89 drapeau panne aoteur 8 OK. 

1 panne (RAZ par le basic) 

8A utilisé pour contrôler 256 
fois si un contact est quitté 

♦-♦ 

! étiquettes ! 

♦.♦ 


INITIALISATION 


0 L10C D8C5; lit octet après un 
CALL .... et le place dans X 

154 .0 EFCA F766; efface CAPS 

155 .0 PORB 8388; 0R8 (PORT B) 

156 .0 PORA 8381; ORA (PORT A) 

157 .0 DORA 8383; DORA registre de 

158 {direction du PORT A. Chaque bit 

159 ; de DORA donne la condition de la 
168 ; broche correspondante i 

161 ; bit à 0 correspond à une entrée 

162 ; bit 4 1 correspond à une sortie 

163 ; latchée (sortie avec aéaoire) 

164 .0 TI2L 8388; < tiaer 2 du VIA 

165 .0 TI2H 8389; > tiaer 2 du VIA 

166 .0 Vifr 838D; registre indicateur 

167 ; d'interruptions du VIA 

168 .0 IRQC EDE8;autonse IRQ clavier 

169 ; 

178 ; 

171 DEBU; ♦.♦ 

172 ;ce prograaae n'eapêche pas l'u- 

173 ;ti1isation du relais de télécoa- 

174 ;aande du aagnétophone 

175 ; RAPPEL aode direct ou prograaae: 

176 ; P0KEI382,IB7 colle le relais 

177 ; P0KE*382,»F7 le décolle 

178 JSR EFCA;' efface CAPS 

179 LDA 88 ; aéaoire octet PORT A 

188 ; (coaaande interface îapnaante) 

181 AND 108811188; bits 8,1,5,6,7 è 8 

182 STA 88 ; initialisation de 88 

183 RTS ; ♦.♦ 

184 N0P ; i COMMANDE MOTEUR ! 

185 C0HH; ♦.+ 

186 JSR 1HPR; prépare le via pour 

187 ; 1'interface de coaaande aoteur. 

188 ; ♦-♦ 

189 JSR LI0C; 

198 ; 

191 STX I 

192 TXA 


sens de rotation 


aéaoire sens rotation 
aise à jour indicateurs 

193 BEQ NBPA; si 8 aarche arrière 

194 JSR REAV; sinon aarche avant 

♦- 1 

! noabre de pas ! 
♦-+ 

Y restera è IFF jusqu'é 
la fin du prograaae 


195 NBPA; 

196 JSR LI0C; 

197 ; 

198 LDY IFF ; 

199 


288 STY TI2L; réinitialise le verrou 

281 ; du TIHER 2 du VIA. 

282 ; Le poids faible du Tiaer 2 (388) 

283 ;prendra la valeur IFF è chaque 

284 ;chargeaent du poids fort du Ti- 

285 ;aer 2 (389) avec RAZ du bit 5 de 

286 ; IFR (3BD) et déaarrage du coap- 


287 

288 
289 
218 
211 
212 

213 

214 

215 

216 

217 

218 
219 
228 
221 
222 

223 

224 

225 

226 

227 

228 
229 
238 

231 

232 

233 

234 

235 

236 

237 

238 

239 
248 

241 

242 

243 

244 

245 

246 

247 

248 

249 
258 

251 

252 

253 

254 

255 

256 

257 

258 

259 
268 
261 
262 

263 

264 

265 

266 

267 

268 
269 
278 

271 

272 

273 

274 

275 

276 

277 


;tage. Voir les sous prograaaes 
;teapos, contact trouvé et con¬ 
tact quitté et Théorie n‘22 p 11 
STX 83 ; aéaoire noabre de pas 
TXA ; aise è jour indicateurs 
BEQ basi; si 8 pas: fin prograaae 
JSR H0TH; sinon aarche aoteur 
DEC 83 ; nb pas : nb pas-1 
BEQ FINI; vers traiteaent arrêt 
DEC 83 ; nb pas = nb pas-1 
BEQ FIN2; vers traiteaent ralenti 
BCL1; boucle coaptage noabre 
; pas - 2 (les 2 derniers 

; pas seront contrôlés en 

; FIN2 et en FINI) 

JSR CTAC; cherche contact 
JSR QUIT; contrôle contact quitté 
DEC 83 ; nb pas * nb pas-1 
BNE BCL1; pas suivant 
F1N2; rotation 1 pas, 

; freinage. 

JSR CTAC; cherche contact 

JSR QUIT; contrôle contact quitté 

JSR Tl ! 2; teapo 1/2 

JSR INVE; inverse rotation freine 

FINI; rotation 1 pas, 

; freinage,arrêt. 

JSR CTAC; cherche contact 

JSR QUIT; contrôle contact quitté 

JSR Tl ! 1 ; teapo 1/1 

JSR INVE; inverse rotation freine 

I NI T; réinitialisation 

JSR NOTA; arrêt aoteur 

basi 

JSR REAR; prêt aarche arrière 
; reaise en état du VIA : 

LDA PORB; STR0BE reais à 1, le 
ORA 200010000; relais de télécoa- 
STA PORB; aande du aagnéto n'est 
; pas aodifié (coaaande par DDRB) 
STY DDRA; PORT A tout en sortie 
JSR TIH2; attends action relais 
;(environ 8.865 seconde). Le lan¬ 
gage aachine étant plus rapide 
; que le relais, le PORT A risque 
;d'alluaer les LED de contrôle. 

JHP IRQC; autorise IRQ clavier et 
; retour au BASIC... 


! sous prograaaes ! 


INPR; ! sortie îapnaante i 

; ♦. 1 

SEI; ne pas déranger ! ! 

; 1e aicroprocesseur ne répondra 
;è aucune deaande d'interruption. 
;11 faut au aimaua interdire les 
{interruptions par le Tiaer 1. Le 
{clavier et le générateur sonore 
;utilisant le PORT A ne pourront 
;pas servir pendant l'envoi ou la 
{lecture de données sur la sortie 
;iapnaante. 

; une initialisation convenable du 
{registre d’autorisation des in¬ 
terruptions (IER 838E) pourrait 
{convenir (voir théorie n* 22 pa- 
;ge 11) è la place du SEI pour 
(traiter un autre registre d'in¬ 
terruption. (broche ACK (CAD de 


278 

279 
288 
281 
282 

283 

284 

285 

286 

287 

288 
289 
298 

291 

292 

293 

294 

295 

296 

297 

298 

299 
388 

381 

382 

383 

384 

385 

386 

387 

388 

389 
318 

311 

312 

313 

314 

315 

316 

317 

318 

319 
328 

321 

322 

323 

324 

325 

326 

327 

328 

329 
338 

331 

332 

333 

334 

335 

336 

337 

338 

339 
348 

341 

342 

343 

344 

345 

346 

347 

348 


la prise îapriaante par exeaple) 
DDRA registre direction PORT A 
PRINTHEXI(PEEK(1383)) donne IFF 
soit 211111111. Les 8 broches 
du PORT A sont donc prograaaées 
en sortie à l'initialisation, 
après CALL ou JSR E93D ou E948 
ou une opération sur cassette. 
DDRA sera aodifié: 

LDA 188811111; bits 81234 en sor- 
STA DDRA; tie et 567 en entrée 
LDA 88 ; aéaoire octet PORT A 
STA PORA; envoyée sur le PORT A 
le "latche" du PORT A conserve 
la valeur et l'interface îapri- 
aante réagira lorsque le strobe 
sera actionné. 

; DDRB registre direction PORT B 
; PRINTHEXIIPEEKÜ382)) donne IF7 
;(111118111) le bit 4 (STROBE) 


; est donc prograaaé en sortie 
; DDRB ne sera pas aodifié. 

LDA PORB; le bit 4 du PORT B est 
;noraaleaent i 1,sauf lors d'une 
{opération sur cassette (B06UE 
; ROM) ou sur îapnaante (annonce 
;d'une donnée prête è iapriaer). 
; Il faudra donc suppnaer l'ali- 
;aentation de l’interface lors 


;d'un CSAVE, CLOAD, STORE, RECALL 
; un LLIST accidentel ne déclanche 
;ra pas les relais (iapulsions de 
{quelques aicro secondes seule¬ 
ment sur le STROBE) aais le sys- 
;têae risque de se bloquer puis¬ 
que le signal ACK n'est pas gêné 
;rê par l'électronique. 

AND 211181111; bit 4 à 0 (Signal 
(STROBE i 8 volts), le relais 
;aarche générale est actionné 
STA PORB 

RTS ; ♦.♦ 

REAV; ! relais avant ! 


« T 
LDA 104 ; adaptation teapos 
STA Tl 12+81; pour arrêt avant 
STA Tl 11+01; (donnée basic en 04) 


LDA 80 ; aéaoire octet PORT A 

ORA 288888881:force bit 8 I 1 
BNE porA; inconditionnel 

i ♦-* 

REAR; 1 relais arrière i 

I ♦.♦ 

LDA 185 ; adaptation teapos 
STA Tl 12+81; pour arrêt arrière 
STA Tl 11+81; (donnée basic en 85) 
LDA 80 ; aéaoire octet PORT A 

AND X11111118;force bit 8 è 8 
CLC ; inconditionnel 

BCC porA; vers interface 

! ♦ . * 

M0TM; 1 aoteur aarche ! 


» T T 
LDA 80 ; aéaoire octet PORT A 
ORA 288888818;force bit 1 è 1 
BNE porA; inconditionnel 

5 ♦.♦ 

NOTA; ! aoteur arrêt ! 

! ♦.♦ 

LDA 00 ; aéaoire octet PORT A 

AND 211111101;force bit 1 1 8 
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349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 


por A; 

STA 00 ; 
STft PORA; 
RTS ; 
INVE; 


! sortie PORT A 

+- 

aéaoire octet PORT 
vers interface 
+- 

• inverse rotation 

♦ - 

aéaoire sens rotation 


LDA 08 ; 

BNE AVAR 

; de «arche arrière vers avant 
JSR REAV; relais sens avant 
JSR TFARj teipo frein arrière 
BNE REAR; inconditionnel prêt 
; pour «arche arrière 

AVAR;de «arche avant vers arrière 
JSR REAR; relais sens arrière 
JSR TFAV;2 fois teapo frein avant 
JSR TFAV; (les relais sont «oins 
; rapides 4 l'ouverture 

qu'l la ferieture). 

BNE REAV; inconditionnel prêt 
; pour «arche avant. 

i ♦.♦ 

PANE; ! «oteur en panne ! 

i ♦-♦ 

PLA; réinitialise le pointeur de 
PLA; pile (sortie sous prograaae) 
■ise 4 1 du drapeau ac¬ 
teur en panne RA2 basic 
inconditionnel réiniti¬ 
alisation retour basic. 

♦-♦ 

! cherche contact ! 

♦...+ 

8 boucles de recherche 
du contact 

tiaer 2 au aaxi IFFFF 
, avec RAZ bit 5 registre IFR et 
; déaarrage comptage du TIRER 2 
BCL3 

LDA Ï00100000; «asque test bit 5 
BIT PORA; des entrées du PORT A 
BEO OKCT; 2=1 contact trouvé 
LDA X00100000; «asque indic. T2 
BIT Vifr; test bit 5 IFR (indic. 
BEO BCL3; d'interruptions du VIA) 
DEX 


LDA 101 , 
STA 09 ; 
BNE INIT; 


CTAC; 

LDI *08 
BCL2 

STY TI2H 


BNE BCL2; boucle suivante... 

BEQ PANE; contact pas trouvé au 
; bout d'environ 8 * 65535 «icro 
; secondes (environ 0,5 seconde) 
OKCT; OK contact trouvé 

RTS ; ♦.+ 

QUIT; ! contact quitté ! 


STY 0A ; prépare 0A pour véri- 
; fier 256 fois si le contact 
BCL4 ; est bien quitté. 

LDI 108 ; 8 boucles recherche 
BCL5 ; si contact quitté 
STY T12H; tiaer 2 au aaxi IFFFF 
; avec RA2 bit 5 registre IFR et 
; déaarrage coaptage du TIRER 2 
BCL6 

LDA X00100000; aasque test bit 5 
BIT PORA; des entrées du PORT A 
BNE OKCQ; 2=0 contact quitté 
STY 0A ; réinitialise 0A 4 IFF 
LDA X00100000; aasque indic. T2 
BIT Vifr; test bit 5 IFR (indic. 


420 BEQ BCL6; d'interruptions du VIA) 

421 DEI 

422 BNE BCL5; boucle suivante... 

423 BEO PANE; contact pas quitté au 

424 ; bout d'environ 8 * 65535 aicro 

425 {secondes (environ 0,5 seconde) 

426 OKCQ ; OK contact quitté 

427 DEC 0A ; vérifie 256 fois si le 

428 ; contact est bien quitté 

429 BNE BCL4; faux contacts possibles 


430 RTS , 

431 Tl S2; 

432 ; 

433 LDA 04 

434 ; 

435 ; 

436 LSR A 

437 .B 2C 

438 

439 


442 


♦-♦ 

! teapo 1/2 ! 

♦-♦ 

; teapo arrêt avant 
(aodifié en LDA 05 pour 
teapo arrêt arrière) 

; divise par 2 (arrondi) 

; code instruction BIT 
utilisée ici pour neutraliser 
1'instruction suivante. 


i 

Tl 11 ; 

LDA 04 

♦-♦ 

! teapo 1/1 ! 

♦-♦ 

; teapo arrêt avant 
(aodifié en LDA 05 pour 
; teapo arrêt arrière) 

; neutraliser LDA 06 
♦---+ 

ligne 

source 

185 

orgamgraaae 
principal 
du prograaae en 
langage aachine 

1 

.B 2C 

f coaaande A 

L. J 

TFAV; 

i teapo frein avant 1 
+-♦ 




LDA 06 
.B 2C 

; aéao teapo frein avant 
; neutraliser LDA 07 

186 

prépare le VIA 
pour l'interface 

TFAR; 

i teapo frein arrière ! 


......... 


LDA 07 

;aéao teapo frein arrière 

♦-4- 

189 

/ lit sens / 

/ de rotation / 


444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 STA TI2H; RA2 bit 5 registre IFR 

460 ; et déaarrage coaptage du TIRER 2 

461 LDA X00100000; aasque indic. T2 

462 BCL7 

463 BIT Vifr; test bit 5 IFR (indic. 

464 BEQ BCL7; d'interruptions du VIA) 

465 FINI 

466 RTS ; ! fin du source 

467 .E 


997 ' ♦.♦ 

998 ' ! caractères èiçéè'fiê : 

999 ' +.t 

1800 CALL*F8D0 ' caractères noraaux 

IF89B sur ORIC 1 
1018 FORI=1T08 
,'READA* 

FORJ=0TO7 
READA 

POKE*B400+8»ASC(A*)+J,A 
l NEIT 

1070 :CALL*FB2A ' FB10 sur ORIC 1 
1888 NEIT 

1098 DATA 8,16,8,28,2,30,34,30,8 
1108 DATA 1,8,8,8,0,8,8,8,0 
1110 DATA \,0,0,30,32,32,36,30,16 
1120 DATA (,4,8,28,34,62,32,30,8 
1130 DATA >,16,8,28,34,62,32,30,8 
1140 DATA [,1,8,20,8,0,0,0,0 
1150 DATA 1,8,20,28,34,34,34,28,0 
1160 DATA £,8,20,28,34,62,32,30,0 


1828 

1830 

1848 

1858 

1868 



0 


rganigramme 1 


193 


194 


196 / de pas 


213 


214 



initialise 

200 ( < tiaer 2 i IFF 

L. 


212 


42 


































































239 


241 


243 


253 


0 




rganigramme 2 

orqamgraaae du 
tous prograaae 
vérifiant si un 
contact «st quitté 


Après de noabreux essais d'orgam- 
graaees différents, c'est celui-ci 
qui a donné le aeilleur résultat. 

Les contacts balais et laae de lai¬ 
ton n'assurent pas des passapes par¬ 
faits du courant. J'ai détecté par 
logiciel jusqu'Â 800 aicrocoupures a 
chaque passage. Dès qu'une ouverture 
du circuit est détectée on vérifie 
256 fois que ce n'est pas une aicro- 
coupure. 

ligne 
source 


403 


405 



408 


410 


X 4 8 pour 8 bou¬ 
cles de TIHER 2 


TI(1ER 2 au aaxi 
IFFFF et coaptage 


test circuit balais 
(bit 5 du PORT A) 



427 


429 


430 


8A * 0A-1 pour con¬ 
trôle aicro coupure 



































































































































































Modification de Monasm 

BARBIER R. 


I l est dommage qu'un moniteur, tel que Monasm qui 
présente par ailleurs bien des qualités, ne soit pas 
prévu pour gérer une Imprimante... Bien sûr, on 
peut toujours envisager de mettre à 0 le bit 7 de l'a¬ 
dresse 2F1 mais on doit alors taper en aveugle et gare 
aux erreurs de frappe ! 


Le petit programme en assem¬ 
bleur, que nous vous propo¬ 
sons ici, ajoute au moniteur la 
fonction "P". Tout ce qui est 
affiché à l'écran est alors im¬ 
primé. Cette modification ne 
change pas l'encombrement. 
Le listing donne, quant à lui, 
toutes les indications néces¬ 
saires à l'utilisation. 


ATTENTION ! En tant que 
modification d'un logiciel com¬ 
mercialisé, ce court programme 
ne figurera pas sur les dis¬ 
quettes de THEORIC. 


0 ’MODIF MONASM POUR IMPRIMANTE*ECRAN 

1 ’ VERSION 1.1 ATMOS 

2 ’ 

5 'Détournement vecteur imprimante 
V "0RG*82F2 

10 -init:ldaw>modpt 

20 " STA*023F 
30 " LDA#< MODPT 
40 " STA*0240 

50 “ JMPS80B0{puis suite init.Monasm 
88 ’ 

89 'Routine écran puis imprimante 

90 "ORG*8146 

100 -moupt:JSR*CCFB 
110 ■ JSR*F5C1 
120 “ RTS 

148 ’ 

149 ’Routine’P" 

150 “0RG*7E72 
160 -prt:lda«*ff 

170 " STA*2F1 
180 " JMP*7B90 

199 ’ 

200 "ORG*780D 


201 " DFB*50i Ajout de'P' a la table 

210 "0RG*7B9B 

211 ’ DFBS0B J pointeur table-11 

220 ■0RG*7826 

221 • DFB*7E,72i adresse de "P" 

222 "ORGS7800 

223 ■J MP INITjbranch pour Initialiser 

229 ' 

230 "0RG*7834îModlf t i tre C Monasm 1. 1P1 

231 " DFB*31,2E,31,50 

239 ’ 

240 * ORG*78291 et,facultatif 

241 " DFB*40J titre en noir 

250 ■0RG*782B 

251 ’ DFBS57I sur fond blanc 

259 ’ 

260 "ORGS80D1iet initialisation écran 

261 “ DFBS70{ en noir/blanc 

299 • 

300 'Assembler 

301 ’ 

302 'Sauver sur K7 Monasm modifie: 

303 ’ CSAVE“MONASM-P",AM7800,EW82FF 

304 'et de preference ,AUTO 

309 ' 

310 'Et -faire RESET pour brancher la 

311 'routine si l’on veut essayer 

312 'tout de suite. 

348 ' 

349 ’ 

350 'MODE D’EMPLOI 

351 ’ 

352 'En mode moniteur la fonction "P* 

353 'permet l’impression simultanée 

354 'de ce qui est vu a l’écran. 

499 ’ 

500 'Le retour BASIC Ipar'B") remet 
502 'le mode moniteur en visu écran 
504 'seulement. 

509 ' 

510 'Par ailleurs,en permanence, 

520 'en BASIC,les LPRINT ou LLIST 
530 'seront imprimes et aussi vus a 
540 ’ l’écran. 









PETITES ANNONCES 


L 


a place réservée aux petites annonces est limitée. En conséquence, 
celles-ci passent dans leur ordre d'arrivée. Par contre, les petites 
annonces farfelues sont systématiquement rejetées... De même, 
comme il est peu probable qu'il existe des "généreux donateurs” de maté¬ 
riels ou de logiciels, les petites annonces faisant appel à ces philantro- 
phes ne seront insérées que si la place libre le permet. 

Seront refusées toutes les annonces visant à vendre ou échanger des listes ou 
copies de logiciels non garantis "d'origine", ainsi que toute annonce incitant 
au piratage. 

En conséquence, réfléchissez bien avant d'envoyer vos textes. 

Les petites annonces doivent impérativement nous parvenir sur la grille (découpée ou 
photocopiée), le texte étant rédigé à raison d'un caractère par case. 

Enfin, toute annonce non accompagnée de timbres ne sera pas insérée. 




Vends ORIC-ATMOS + magnétophone ♦ cassettes 
et livres : 800 F. Demander NICOLAS. 

Tél. 40.63.20.70 

Cherche programme de liaison entre décodeur 
PK232 et ATMOS équipé RS232. BOURDON René 
Noël 6. rue C. DEBUSSY 08170 Haybes. 

Vends Télestrat TV N/B IMP Cosmos 80 Romoric 
I ROMATMOS Arcade 1. modulateur N/B. le tout : 
6000 F. SAUCER tél. 34.1 9.22 97 après 18h00. 

Vends ATMOS : 500 F. Magnéto : 150 F. 10 K7 
+ 7 progs : 400 F. Coll, partie II Théorie + livres 
divers : 200 F. Tél 45.78.70.96 après 19h00 

Passionné d’ATMOS. cherche corresp. pour échan¬ 
ges divers (progs). AUPY Stéphane - 110, rue de 
l'Epine-Uil - 16710 Saint-Yrieix. 

Vends lmp. GP50A + K7 prog. (originaux et 
copies) + plusieurs livres ORIC. Th. BRIER - 2. rue 
Brenu 92230 GENNEVILLIERS. 

Vends K7 Strip Poker : 50 F et échange images digi¬ 
talisées sur K7. PENNARU N. - 20. rue G. Le Bigot 
appt. 512 è 94800 Villejuif. 

Cherche ORIC-1 (+ alim + manuel). Francis COU 
TINHO 77590 Bois le-Roi tél. 60.66.34.19 après 
18h00. 

Achète pour Jasmin + Atmos utilitaires Jasmin- 
Cale. Multifich, Easytext et Jasmitel. Faire propo¬ 
sitions au 87.36.92.32 après 19h00. 


Vends pour Télestrat Oric ROMATMOS et ROMO¬ 
RIC à l'unité 150 F (neuve) + joystick 70 F. C. 
DUBERNETRE. J MACE 86000 Poitiers. 

Vends Oric ATMOS + Jamsin 2 + disquettes + 
logo (sur K7) + disquette assembleur + doc : 
2000 F. Tél. 96.23.99.69 (le soir). 

Vends lecteur disq. Jasmin : 1000 F. Imprimante 
Star DP510 : 1000 F. Nbx progs. livres revues, liste 
sur demande. LEVY - 15. rue F. Fabre 75015 

Vends nbx progs (150). Cherche contacts SEDO 
RIC et imprimante. Tél. 90.75.45.40 DUFAZA 
Christophe LEOUZE 84490 St Saturnin. 

Vends imprimante MCP40. type Centronic très bon 
état, jamais servie, cause changement matériel. 
Tél. 49 79.84.69 le soir. Jacky. 

Vends ROM ATMOS ou échange contre davier 
ATMOS (complet et en bon état). DIASIO Joseph 
quartier Mermoz bat. D2 54240 Joeuf. 

Un nouveau serveur vient d’ouvrir : messagerie 
P.A., trucs et astuces sont au rendez-vous d'Huns- 
tel. Tél. 77.61.19.14 de 17h00 à 24h00. 

Recherche drive Jasmin 2 modem 2000 digitelec 
disq. Jasminitel. Jasmin Forth. DURVILLE - tél. 
48 02.6130 HB 

Jeunes auteurs vendent jeu d'aventure sur disk 
Jasmin, contacter Cyril COGORDAN Les Fernè 
res - l'Albenc - 38470 Vinay. 


Recherche ORIC ATMOS 48 Ko (alim + manuel). 
B. état : 500 F max. Pascal COUTINHO 77590 
Bois-Le-Roi tél. 60.66.34.13 (après 18h00). 

Achète pour ATMOS + SEDORIC logiciels compte 
bancaire + éducatifs. Ecrire à J M. Bragigand - 1 9 
B. av. Edmond 94430 Chennevières. 

Cherche possesseur synthé vocal MS45 pour ren 
seignements. Tél. 39.74.76.33 après 1 7h00. 


Achète lecteur disk. + ATMOS TBE (max. 2 ans), 
bas prix. Faire offres. Tél. 87.91.51.39 après 
20h00. 

Vends microdisc -r Sédoric + 5 disquettes avec 
jeux et programme utilitaire : 2000 F. Tél. 
20.85.01.54, 

G. HENRIAT - 5. rue Guy Moquet, recherche logi¬ 
ciels en 3" 1/4 ou 5" 1/4 pour Jasmin 1 ou 2 sur 
ORIC/ATMOS. Ville 91390 Morsang. 

Cherche corr. ATMOS. envoyer 2 timbres à 2,20 F 
pour réponse. Julien LAURE • 7, rue Jean Laville 
71410 Sanvignes. 

Vends livre 'T'ORIC à nu" de Fabrice BROCHE en 
très bon état 100 F (neuf 151 F). CHATRENET 
O. Lycée Pasteur 25043 Besançon cedex. 

Vends ATMOS : 400 F. Drive : 1 500 F. 25 disquet 
tes 200 jeux util. (MSTEL) : 500 F. Synthé 30 Théo¬ 
rie. 9 livres : 500 F. TV 23 cm : 2000 F. Tél. 
61 41 17.19 

Vends ATMOS + modulateur N/B + logiciels + 
programmes + Théorie n° 18 à 31. Le tout TBE 
950 F. A débattre. Tél. 34 19.31.03 vers 13h00 

Vends ATMOS + Jamsin + FTDOS + text + fich 
+ jeux + livres, valeur 4000 F : 2000 F. à débat 
tre. Tél. 47.40.1 5.85 le soir (demander François). 

Cherche contacts ORIC 1 et ATMOS + Jasmin, 
Paul 97 24.1 9.30 - 21. rue de Sainte Avoye Plu- 
neret 56400 Auray. Urgent. 



ANNONCEZ-VOUS 

Vous pouvez passez directement vos annonces sur le minitel. 

Attention : Dans un tel cas elles ne seront pas dans la revue. Une annonce envoyée à la rédaction 

est mise sur le serveur dans les 48 heures. 


-8 

-C 


































































• 

L_ 

















_ 















_ 


_ 



__ 

J 

_ 

J 



f 


_1 


Coupon à renvoyer accompagné de 4 timbres à 2,20 F à : 
SORACOM, La Haie de Pan -35170 BRUZ 


Gagnez du temps ! Sur Minitel 36.15, tapez MHZ 


Impression : VAN DEN BRUGGE - Photogravure couleur : BRETAGNE PHOTOGRAVURE - Dépôt légal à parution 
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ABONNEZ 
VOUS.M 


7 alA ble pour 

VA ioille' et a 00 ’ 


août un s^i n c 0 nACOM, I 

(ott.i"' 01 ' ■■ 1""”' " f à l'ordr. d. S 0 »* 1 

sur le prochain n mots . 

Pour être P r,s JV^us parvenir avant prénom . 


NO** . 

A dres*® • 

Code Po* ,al 

Pays 


Signature ••••_ 


70 F 
130 f 
735 F 


_»".m e en; ? S?V‘rô"« *!&&!&**’* ' 

^0 (6 disquettes ^ ^ ^ — 


SORACm 


LES DISQUETTES DE THEORIC 

N'usez plus le bout de vos doigts à saisir jes listings de la revue. Nous vous proposons, réunis sur une même 
disquette, tous les programmes publiés dans deux numéros de THEORIC (consultez la liste ci-dessous pour 
commander ; aucun échange ne sera accepté). Les disquettes n° 1 à 14 n'existent qu'en format 
JASMIN. A partir de la disquette n° 15, elles sont disponibles en format JASMIN ou SEDORIC. Bien pré¬ 
ciser lors de la commande. 

Prix :116F pour les abonnés à la revue (joindre impérativement l'étiquette d'abonné) ; 146 F pour les 
lecteurs non-abonnés. 

AVERTISSEMENT IMPORTANT : les programmes stockés sur ces disguettes sont tels que parus dans THEO¬ 
RIC. A vous de les adapter à vos besoins et au fonctionnement sur disque lorsque nécessaire. 


N° 1 THEORIC n° 4 et 5 

N° 2 THEORIC n° 6 et 7 

N° 3 THEORIC n° 8 et 9 

N° 4 THEORIC n° 10 et 12 

N° 5 THEORIC n° 13 et 14 

N° 6 THEORIC n° 15 et 16 

N # 7 THEORIC n° 17 et 18 

N° 8 THEORIC n° 1 9 et 20 

N° 9 THEORIC n° 21 et 22 

N 0 10 THEORIC n° 23 et 24 

N° HS THEORIC HORS SERIES (n° 11) 

N° 11 THEORIC n° 25 et 26 

N° 12 THEORIC n* 27 et 28 

N° 13 THEORIC n° 29 et 30 

N° 14 THEORIC n° 31 et 32 

N° 1S THEORIC n° 33 et 34 


ATTENTION I II n'y a pas de programme TELESTRAT sur cette disquette. 



VOLUHE : T033&34 


U 

CALGORIC.BAS 

s 

15 SECTORS 





U 

«DOS 

.BAS 

s 

18 SECTORS 

U 

BIDON! .BAS 

s 

2 SECTORS 

U 

LL I ST 

.BAS 

s 

11 SECTORS 

U 

BID0N2 .BAS 

s 

2 SECTORS 

U 

nusiauE .bas 

s 

23 SECTORS 

U 

CATERPIL.BAS 

s 

26 SECTORS 

U 

CARAC 

.BIR 

s 

10 SECTORS 

U 

VERILIST.BAS 

s 

36 SECTORS 

U 

CONST 

• BIN 

s 

2 SECTORS 

U 

TRANES .BAS 

s 

BO SECTORS 

U 

CARAC 

.BAS 

s 

13 SECTORS 

U 

TESTIHPR.BAS 

s 

14 SECTORS 

ü 

CONST 

.BAS 

s 

19 SECTORS 

U 

TEST MOI. BAS 

s 

10 SECTORS 

U 

REELS 

.BAS 

s 

4 SECTORS 

U 

BOTEIRPR.BAS 

s 

39 SECTORS 

U 

FACTORI 

.BAS 

s 

5 SECTORS 

U 

NOTE MOI.BAS 

s 

30 SECTORS 

U 

VIDEOTEX.BAS 

s 

35 SECTORS 

U 

N0TE8E/S.BAS 

s 

41 SECTORS 

0 

VARANCAL.BAS 

s 

21 SECTORS 

U 

H0018E/S.BAS 

s 

30 SECTORS 

0 

C0HPHIRN.BIN 

s 

3 SECTORS 

U 

CEORIC .BAS 

s 

54 SECTORS 

U 

C0fPHIRC.BIN 

s 

5 SECTORS 

U 

DESCARTE.BAS 

s 

29 SECTORS 

U 

VOILIER 

.SCR 

s 

33 SECTORS 

U 

CARTE .BIN 

s 

33 SECTORS 

U 

BO 

.SCR 

s 

33 SECTORS 


□ JASMIN BON DE COMMANDE 

□ SEDORIC DES DISQUETTES THEORIC 


Je commande les disquettes 1, 2, 3, 4, 5 HS ; 6, 7, 8, 9, 
10, 11, 12, 13, 14, 15 

Ci-joint :116F par disquette et mon étiquette abonné 
146 F par disquette car je ne suis pas abonné 

Soit au total la somme de F réglée par chè¬ 

que ci-joint. 


NOM .Prénom 

Adresse. 

Code Postal .... Ville . 
















DES DISQUETTES 
A PRIX RENTREE ! 



Disquettes 5" 1/4 avec la 
pochette vendues 
par lot de 10 50 F 



Disquettes 3" 1/2 
conditionnées vendues 
par lot de 10 190 F 




Disquettes 3" avec la 
pochette cartonnée 
vendues par 
lot de 10 270 F 


BON DE COMMANDE 


Nom—--- 

Adresse - 

Commande 

Franco de port pour les lecteurs 


_ Prénom — 


_ Lot(s) de disquettes : 


Chèque à l'ordre de BRETAGNE EDIT'PRESSE - La Haie de Pan - 

35170 BRUZ 


(Ecrire en capitales) 








Cherche ampli-bus Jasmin même HS et logiciel pour 
Jasmin gestion domestique de Logys. Faire offres. 
Tél. 74.30.47.71 après 18h00. 

Vends ORIC-ATMOS + Jasmin + modem + 
MCP40 + deux + carte mère. Eric, tél. 
26.80.55.11 l'après-midi (le tout 2800 Fl. 

Achète pour ATMOS, VORTEX compilateur LM + 
clavier neuf. PLANTIER - tél. 61.86.70.08. 

Vends ATMOS 2 : 1550 F. 2 ROM SPE : 400 F. 
Jasmin 2150 F. 1000log/50D7 : 2000 F. Le tout : 
5250 F. St-Hubert 18. rue des Huches ■ 21800 
Quetigny. 

Vends Jasmin + ATMOS + FTDOS + multifich 
+ conquérants et divers jeux et livres :280 F. Tél. 
69.42.37.98 le dimanche. 

Vends ATMOS + alim + périt. + moniteur coul. 
+ 28 livres + 120 logiciels + magnéto + 2EME 
ATMOS + alim. TBE de marche : 2500 F. Tél. 
83.21.81.36. 

Vends ATMOS + trois drives (FTDOS) dont 1 5” 
1/4, 100 disks 5" 1/4 avec les K7 onginales : 
2500 F. Bernard, tél. 93.98 45.93. 

Vends Télestrat complet + disks : 3300 F. Tél. 
21.04.43.16. 

Cherche Schéma contrôleur SEDORIC et circuit 
imprimé. Tél 20.85.01.54. 

Vends imprimante MCP 40 emballage origine 
cause, achat autre matériel. Tél. 49 79 84 69 HR 
le soir. Mat. jamais servi. 

Vends Théorie n°1 è 30 : 650 F. Nbx livres 
ATMOS. liste sur demande. Saint-Hubert Antoine 
18. rue des Huches - 21800 Quetigny. 

Vends ATMOS 48 Ko + Jasmin 2 + imp Seikosha 
GP500A CPLET. le tout : 3000 F Tél. 
64.05.67.82 après 18h00 

Vends ATMOS + Jasmin 2 + péritel + alimenta 
tion + jeux sur disk + cassette + listing : 2000 F. 
Tél. 48.79.12 84 

A vendre lect. K7 + 3 K7 jeux, le tout : 400 F. Tél. 
58.09.70 45 après 20h00 

Vends ATMOS très bon état + péritel + nombreux 
programmes, environ 50 ♦ manuel, le tout : 
1000 F. Demander Jean-Louis. tél. 47.81.87 09 

Cherche microprocesseur "Sound Ay-3 - 8912" 
ORIC ATMOS Tél 33.28.40.43 

Cherche correspondant pour programmer sur 
ATMOS Stéphane PROVE tél. 39.65 44.25 
178240 Chambourcyl. 

Cherche ampli bus A de 200 F. Région Parisienne. 
Tél. 39 74.76 33 après 17h00. 

Vos Télestrat + disk + imprimante + ROMAT 
MOS ♦ livre + logociels + lecteur cass. garanti : 
4000 F. Tél. 91.87.24.71 ■ 35. rue Rimas 13011 
Mar. 

ATMOS cherche contacts pour échange de pro 
grammes. FULCONIS Jean-François - ROCASOLEIL 
04000 Digne 

Rachète interface programm. + manettes. 
PARAYRE Patrice 5. rue Jean Bart 81000 Albi 
ou sur MNTL 63.47.06.86 BAL 04 

Echanges divers pour ATMOS K7. PARAYRE 
Patrice 5. rue Jean Bart 81000 Albi ou sur 
MNTL : 63.47 06.96 BAL 04 

Vends K7 originales ou échange contre disq. 3". 
6502 progs manual (Anglais! de la firme M05. Ber 
nard. tél. 97.05.68.92 

Vends 50 % du prix logiciels d’origine. Micro 
géo/jasmin ♦ Copytel/SEDORIC + asimil. 
anglais/SEDORIC. Tél. 82 84.46.59. 

Achète petit prix (ou don ?) épavels) ATMOS. 
microdisc. Jasmin. Vends orig. 51 K7 et disk. Pierre 
MUSSARD BP 4363 69242 Lyon Cedex 4 



Vends orig. 5/ disquettes Jasmin : Forth-Calc. Easy 
text : 290 F. Assemb : 240 F Mathegraph easy 
disk : 1 50 F chaque. Tél 78.27.44.99 HR. Pierre. 

Donne cours d’informatique et logiciels è Aogno- 
nas 50F H. Tél. 90.14.89.73 D. THIERRY. Vends 
L CHS MONPERIN PAV R. Emanu. 

Cherche Fouquet 8. rue Georges Melies 57710 
Tressange Vends interface CGVPHS 60 + cours 
TVC Eurelec groupe 1 à 10. avec oscillo + contré 
leur électr.??????? 

Echange (ou vendsl. contre timbres ou cartes pos 
taies anciennes, nbx programmes pour Microdisc 
(SEDORIC). CAUQUI Vincent 38, bis rue de Brus 
81000 Albi tél 63.54 73.63 

Vends Joystick ♦ Interface programmable : 250 F 
carte 8 entrées analogiques avec câble : 200 F. 
Tél. 93.22.63.34 le soir 

Vends aussi imprimante Brother M-1009 avec 
câble et logiciels 'Super-Fac-Sim' et 'Buffer-Sofr 
deThéoncn°21 :1250 F. 

Recherche Jasmitel et Jasmm-calc.URGENT. R. 
BECHER - 1. rue des Muguets -57990 Hund- 
ling. Tél. 87.02.44.23 

Vends ATMOS complet (TBE) + lecteur de K7 + 
nombreux programmes (env. 200). 

Le tout : 1 000 F. Tél. 98.45.96.13 - Brest 

Clubs ORIC, laîtes-vous connaître ! Aut. Vot. Log. 
ORIC à prix réduit. Ecrire à : MUSSARD - Le Py- 
69250 Poleymieux au Mont tfOr. 

URGENT vends ORIC-ATMOS (H. usage) » MCP 
40 ♦ jeux ♦ prises » moniteur vert ♦ magnéto. En¬ 
semble ou sép. Tél. 74.70.81.68 après 19h00 

Vends Télestrat ♦ ROM ATMOS ♦ 2 jeux de ROM 
Hyper BASIC télématique: 3 000 F. Tél. 74.86.17.05 

Vends ATMOS 48 K : 500 F, Imprimante MCP 40 : 

500 F. 35 logiciels : 30 F pièce. 

revues Théorie : lOFpièce. Tél. 33.65.4327 

Vends 25 cassettes jeux ATMOS à moitié prix (Ka¬ 
raté - Tyrann etc.). Tél.96.32.03.76 - Demander 
Eric. 

Vends originaux : 40 F (Formule 1, ATMOS), Modu¬ 
le Son C + doc/demande. M MORALES, poste res¬ 
tante - 13127 Vitrolles (pas de téléphone). 

Cherche notices de 1815 et de Master Paint. 
Echange contre jeux ou les achètent. Tél. 
88.31.55.48 - Marc - Strasbourg. 

Vends ATMOS + Alimen. + 50 Lonciels ♦ 25 
Théoncs ♦ 30 Hebdogiciels ♦ 7 livres sur r ATMOS 
♦ 5 revues, le tout : 800 F. Tél. 43.40.01.34. 

SOS Arsène Lapin pour ORIC-1. Comment trouver 
la combinaison qui ouvre le coffre-fort ? 

Tél. 79.85.86.39. 

Vends Visa ORIC (SORACOM) : 25 F. traitement 
de texte Vonex (Lonciels) : 60 F. imprimante Bro- 
Iher M 1009 + Prgs : 1 800 F. Tél. 33.24.30.45. 


Vends Théorie 6 à 26. sauf 8. 9,10.11.14.17,19. 
(16 F chaque), livre au coeur de l'ATMOS (Cobra- 
soft) : 50 F. Tél. 33.24.30.45. 

Vends ATMOS ♦ manuel ♦ livre + nombreux jeux. 8 
utilitaires + magnéto : 1 000 F + télé N/B : 1 500 F. 
Tél. 42.64.02.51. 

Vends Logiciel ♦ câble Loritel (acheté 400 F il y a 
un an) : 200 F-Vincent DECOUX. 2 rue Jules 
Guesde - 92120 Montrouge. 

Vends Télestrat + lecteurs disq. » ROM ATMOS ♦ 
disq. ♦ livres. Tél. 37.49.83.52. 

Cause double emploi, vends Télestrat complet : 3 
500 F. prix à déb-GUEPROTTE Sylvain, 1 rue 
Jeanne d'Arc - 54700 Villers-sous- Preny. 


Recherche correspondants Microdisc sur Brest et 
CUB (Atmos)-LECLERC Régis. 4 rue du 
Nivernais - 29200 BREST. Tél. 98.03.01.49 

Vends n*1 à 10 de Théorie : 200 F ♦ K7. J’apprends 
la CAO * assembleur micrologie ♦ éditeur music. 
ATMOS ♦ divers livres (Microprocesseur...). 

Tél. 42.84.39.98. 

Echange : Rat Splat + Ultima zone ♦ Chess Z 
(Onginaux) contre Logiciels Monasm ATMOS ♦ 
docs. Dem. Daniel GRIMAULT. Tél. 46 87.82.85. 

Vends ATMOS MCP 40. lect. de K7 peu servi, dont 
Di ORIC-1. 7 livres programmes pour achat en¬ 
semble: 1 300 F. Tél. 49.79.95.69 le soir. 

Vends ATMOS ♦ adapt. N/B ♦ magnéto K7 ♦ inter¬ 
face Joystick prog ♦ jeux ♦ livres, le tout : 2 000 F. 
Tél. 85.36.03.70. 

Oricien en détresse, cherche contact avec Oncien 
chevronné et possédant connaissances en électro¬ 
nique et oscilloscope ou Club ORIC - Région 
Lonent. Tél. 97.36.53.47 le soir. 

ORIC-1 ATMOS. cherche contact pour échange de 
logiciels (K7) - F. HERLENT, 113 impasse Laballet- 
te - 59500 Douai. Tél. 27.88.52.05. 

Fou d'ORIC cherche correspondants pour échan¬ 
ges divers. M CHEVALIER. 10 lot. 'Les 
Naïades' - 83130 La Garde Tél 94 .21.26 46. 

Cherche désespérément notice ORIC base, de 
préférence française - NATACHA, 1 rue des 
Korngans - 35160 Montfort. Tél. 99.09.39.45. 

Cause passage Télestrat vends ROM ATMOS ♦ 
doc : 120 F. SEDORIC ♦ doc : 300 F - PH. 
CONORD. Tél. 42.58.98.72 le soir. 

Vends imprimante GP 100 : 1000 E-VALETTE 
Thierry, 5 rue des Mascarades - 30300 
FOURQUES. Tél. 90.96.34.89. 

Achète Microsdisc maître pour ATMOS ou carte 
contrôleur - POULAIN B. Concorde I. Ch de 
l'Ecole - 06150 Cannes La Bocca. Tél. 93.47.78.31. 

Vends ATMOS (ROM 27256) ♦ magnéto ♦ lot K7 ♦ 
Interface ♦Joystick» doc. 1 300F.Tél.96 23.35.l0 

Vends ATMOS 48 K ♦ Alim. ♦ péntel ♦ adap ♦ mi¬ 
crodisc ♦ livres ♦ 20 disq. ♦ 10 log cassettes ♦ re¬ 
vues. le tout : 2 000 F - Bruno - Tél 49.82.55.04, 
(Dépt. 94). 

Vends Télestrat ♦ doc : 2500 F, cause achat Com¬ 
patible - Jac. GIRAULD - 50000Samt-Lô. 

Tél. 33.55.51 89. 
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MOU UNS MICRO PERON 
90, rue Regemortos 
03000 MOULINS 


LIBRAIRIE PRIVAT 
14. rue des Arts 

31000 Tcüou» 


GU ER UN-MARTIN A R LS - LIBRAIRIE 
82, place Drouet tfE/ton BP 216 
51068 REIMS CEDEX 


ARPAJOU-ORGANSATION 
12. pla» de U Cattafrale 

64100 BAYONNE 


L'OREILLE HARDIE 
Cente Ccmmaraai Intormarcbe 

04000 DIGNE 


LA PUCE SAVANTE 

8. Bd de U Gare 
31500 TOULOUSE 


UBRAJR1E M CH AUD 

9. ru* du Cadran San» F8erre BP 360 

51062 REIMS CEOEX 


GES PYRENEES 
28. rue deChassrr 
64600 ANGLE T 


F*AC ETOILE - Cent* MCE Etoile 
30. avenue Jean Medean 
06000 NICE 

HI-FI DIFFUSION - Jeamco SARL 
19, rue Tondu! de TEecarène 
06000 NICE 

UBRAIRIE A LA SORBOWE 

SNC Seyrat 

23. ru* Hôlel des Postes 

42. ru* G»oAr*do 

06000 NICE 


LIBRAIRE MOLLAT 
83 à 91. rue Porte-Ojeaux 
33080 BORDEAUX 


LOGMCRO 

M Lerfuer 

2 avde Laon 
51100 REIMS 


FKA.C 

Cente commaaal Polygone 
33000 BORDEAUX 


MLL 

27. ru* Ambrora* Paré 
53000 LAVAL 


SON VIDEO 2000 

MICRO-AQUITAINE (El COCAS) 

31.Ca«d*rYv«r 

33800 BORDEAUX 


BERGER VICTOR 
LA GRANDE UBRAIRIE 
13.15 ru* St Georges 
54000 NANCY 


GES COTE D'AZUR 
R*sdar» les Heures Qares 
454, rue des Vaaquara* 

06210 MANDELIEU 

UBRAIRIE A LA S0R80NNE 

7. rue des Betoes 
06400 CANNES 

PANORAMA DU UVRE 
UBRAIRIE DES ECOLES 
Cent* Commercé CAP 3000 
06702 ST LAURENT DU VAfl 


MIC RO PO U S 

29. ru* Palol de Montabat 

10000 TROYES 


UBRAIRIE DE L’UMVERSTTE 
12 A, rue Na/aetr 
13100 AJX EN PROVENCE 

FNAC MARSEILLE 

Cent* Bourse 

13231 MARSEILLE CEDEX 

U BRAIRE FLAMMARION 
54. ta Carvrebae 
3 Marte des Capuara 

13231 MARSEILLE CEDEX 1 

MAUPCTTT UBRAIRIE 
U MYERS ALLEES 
144, LaCanebere 

13232 MARSEILLE CEDEX 01 

LA PUCE WFORMADQUE 

42. rue du Four Bourg-Neuf Vieux Salon 

13300 SALON DE PhOVENCE 

U BRAIRE ARMOIRES - JABALOT B 

26, rue Sanj-Yon 
17000 LA ROCHELLE 

MIL 

21 rue Albert la 
17000 IA ROCHELLE 

GES CENTRE 
25. rue Cdefle 
18000 BOURGES 


U BRAIRE DE LUNVERSTTE 

17. rue de la Überto BP 1070 
21025 OUON CEDEX 


BERGERAC DIFFUSION PRESSE 
37, rue de la Resstanœ 
24100 BERGERAC 


CRUSSOL LIBRAIRE 
10 Bd Gai de Gaule 
26000 VALENCE 


U BRAIRE LEGUE - AU UVRE DDR 

10. rue No*J Balay 
28000 CHARTRES 

U BRAIRE D. LESTER 
13. b» rue du Cygne BP 124 
20007 CHARTRES CEDEX 

K EM Pt R INFORMATIQUE 
72/74, av de ta Ubaalor 
29000 OU IMPER 

CASTELA SA 
LA MAISON DU STYLO 
20. piaoe du Capbto 
31000 TOULOUSE 

FNAC TOULOUSE 
U BRAIRE DES CAPTTOULS 
1 b* place Oootane 
31000 Toutou» 


INFORMA T)QUE 2000 
piaoe Rene Deve L* Triangle 
34000 MONTPELLIER 

MCROPUS 
1 S. Bd Gambetta 
34000 MONTPELLIER 

LIBRAIRE SAURAMPS 
Le Tnangto 

Alee Aies Mt»au BP 9551 
34045 MONTPELLIER CEDEX 


FORUM DU LIVRE 
5, quai lamatne 
35000 RENNES 

MC RO STORE 
I 3. place St German 
35000 RENNES 

LIBRAIRE DIALOGUES 
LOISIR A CULTURE 
rue de ta Chatotas 
35000 RENNES 

MTCRO-C INFORMATIQUE 
3. Bd de Beurrant 
35000 RENNES 

I.&L INFORMATIQUE 
48. Bd de ta Uba té 
35000 RENNES 


VIDEO SERVICE INFORMATIQUE 
GALLE 

9. pNaoe du Fhéadait Ccty 
37100 TOURS NORD 


Cente Ccmmao* CATS 
37170 CHAMBRAY LES TOURS 


LIBRAIRE ARTHAUO 
23. Grande rue BP 187 
38000 GRENOBLE 

LIBRAIRE HAREL 

11. rue Sart Jacques 
38000 GRENOBLE 

LIBRAIRE V1DONNE 
134. rue de ta Répubtque 
39400 MOREZ 


LIBRAIRE PU ET AN 

! 3. rue du Commaoe 
| 41000 BLOIS 

UBRAIHE LAUXEROIS 
40. rue Charles de Gaule 
42300 ROANNE 


LIBRAIRE C. OUGUa 
TECHMQUE ET CLASSIQUE 

8. piaoe de ta Ban» 

44000 NANTES 

MCRONAUTE 

9. rue Urvoy de Sari Batan 
44000 NANTES 


LIBRAIRE LOOOE 

Angle rues J et Royale 
45000 ORLEANS 


RICHE R LIBRAIRE 
6. rue Chaperomare 
49000 ANGERS 

DEPOT REGIONAL DE UBRAIRIE 
FORUM 

Carte CcmmeroM 
le* HaNtas* BP 811 
49006 ANGERS CEDEX 


UBRAIRIE "A LA SORBONNE" 
F. SCHMfTZBERGER *t Cto 
I 12. rue Si Ona BP 25 
' 54002 NANCY CEDEX 


LA BOUQUINERE 

7. ru* du Port 
56100 LORIENT 


CS.E. 

Md* LUTZ 
6. ru* Ctorn 
57000 METZ 


IACRO BOUTIQUE - ECONOMATS ON 
1 -3. ru* Paul Besançon, 
place de ta Cafredrafe 

57000 METZ 

ELECTROMC CENTER 
16, rue Ancien Hcptal 
57100 THIONVUE 




FURET DU NORD 
15. place de Gable BP 2S5 
56002 ULLE CEDEX 

IACROTEX - TAQUVN 
22. piaoe de ta répubfique 
56170 CROIX 

FURET DU NORD 

20. place de ta Repufcéque 
56200 TOURCOING 

FURET DU NORD 

21. rue du Queanoy 
56300 VALENCIENNES 

PROTEC PHONE 
9. rue Si Jacques 
56600 DOUÂT 

ANTENNES PRNGAULT 
39. la roule de Fagrxes 
56600 MAUBEUGE 

FURET DU NORO - DEROME SA. 
18 et 20. a» Jean Mabu» 

56600 MAUBEUGE 


FURET DU NORO 
15. Bd Basfy 
62300 LENS 

LENS MC RO INFORMATIQUE 
«m.AMMm 

routedeLiaar 

62300 LE NS 

IACROGIOEL 
Banard Thomas 

2. piaoe P Bonhomme 
, 62500 St OMER 

GES NORO 
9. rue de fAtouetto 
62660 ESTREE CAUCHY 

OBERT JOSEPH LIBRAIRE 
«. » dn EUB-Lh» 
6MOOCIERMONTEERRAND 

UBRAIRIE LES VOLCANS 

SO.BdGagovia 

63000 CLERMONT FERRAND 

NEYRIAL 

3. Bd Desax 

63000 CLERMONT FERRAND 

BASE 4 Ubrane 

, Enc GRENIER 
11. rue Samorva 
64000 PAU 


MCRO-PYRENEES 

41. rue du 4 septembre 

65000 TARBES 

OR 0-2000 

Thrarry COLENO 

127. av du Regcnarl de ftgorre 

65000 TARBES 


NFORMATIQUE SERVICE 
68. rue Maréchal Fort 
66000 PERPIGNAN 


MC RO CENTE R 
Carte Commaaal 
place des Haies 
67000 STRASBOURG 

BERGER LEVRAULT 

23 bace Broda 

67061 STRjSbOURG CEDEX 


UBRAIRIE HARTMANI Pata 

24. Grande rue 

68025 COLMAR CEDEX 

ALSAT1A UNION 
4. piaoe de ta Reunran 
68051 MULHOUSE 

UBRAIRIE G BISEY 
35, ptaoe de ta Reunran 
68100 MULHOUSE 


GES LYON 
6. rue de f Aima 

66001 LYON 

FLAMMARION UBRAIRIE 
19. ptaoe Befteaxx 

66002 LYON 

UBRAIRIE CAMUGU 
6. rue de ta Charité 
66002 LYON 

UBRAIRIE DECJTRE 
6. piaoe BeAeoour 

66002 LYON 

TOUT POUR LA RADIO 
66. Cous Lafayeoe 

66003 LYON 

MICRO-GESTION-FOCH 
25, rue de Séze 
66006 LYON 


UBRAIRIE INFORMATIQUE 
MONT AJ G 
8. me Pré Bene*i 

74300 a USES 


QBE RT JEUNE 
15, bs Bd St Dem 
75006 PARS 

FNAC ETOILE 
26. avenue de Wagram 
75008 PAR6 

MICROPLUS "ELYSEES 26" 
28. av Champs EJysees 

75008 PARS 

MICRO PLUS 

Sto K BS ELECTF10NCS 

64. rue de ta Chaussée €Anin 

75009 PARS 

UBRAIRIE PARISIENNE 
DE LA RADIO 
43. rue de CXaràaque 
75480 Pans Cedex/10 

V1SMO 

84. Bd Beunartaa 

75011 PARS 

CHOLET COMPOSANTS 
ELECTRON QUE 
2. rue EmèoGastotar 

75012 PARS 

GENERALE 

ELECTRON QUE SERVICES 
GE.& Paie 
68 et 78. av L*dru Rolln 
75012 PARS 


SH OP PHOTO 

33. rue Commandant Mourtotto 
75014 PARS 

FNAC FORUM 
1. rue Piare-Lescot 
75045 PARS CEDEX 01 

UBRAIRIE EYROLLES 
61. Bd StGaman 
75240 PARS CEDEX 05 

UBRAIRIE DUNOO 
i 30. rue San! SJpo» 

75278 PARS CEDEX 06 

cm Z EN BANO 
31. Bd de ta Mame 
76000 ROUEN 

UBRAIRIE LESTRNGANT 

123, rue Gai ledarc 
76000 ROUEN 


ETS THOMAS 
MIC «CONFORMA Tl QUE 
153, av de ta Reput*»» 
78500 SARTROU VILLE 


U BRAIRE DELOCHE SA 
21. rue de ta Répubique 
82000 MONTAÜBAN 


U BRAIRE GAY 
4. place de ta übaté 

83000 TOULON 


U BR AIRE AM8LAR0 
10-14, Port* Mafraan 
84000 AVIGNON 

RC ELECTROMC 
Mr MARTIN Robat 
53. rue Victor Hugo BP 12 
84100 ORANGE 


GJBERT J. UBRAIRIE 
9. rue Gambetta 
86000 POfTlERS 

MAJUSCULE POITOU 
3. bs ru* de TEpaon 
86000 POfTlERS 

J BRAIRE 
DE LUMVERSTE 
70. Rue Gambe tb BP 109 
86003 POfTlERS CEDEX 


UBR AIRE BAAADAT 
8 place St FVvre 
| 87100 LIMOGES 

I S.D.L 

25. routo de Mcntarys 
89300 JOfGNY 


NOCH AU-MARECHAL 
U BR AIRE DU LYCEE 
100. Grande-Rue 
91160 LONGJUMEAU 

LC.Ÿ 

130. rue de Corbd Vlemo»sson sOge 
91360 EPINAY SORGE 


LOSfTECH 
Carte Tamr* 93 

93106 MONTREUIL 

O ROI PLUS 
7. piaoe Cameinat 
93600 AULNAY S0OS 

BERTHET A. SA 
UB a» la Gund» Ru» 

105, Grande Rue O de GauQe 
94130 NOGENT SMARNE 

OROfVIDUa 
| 20. ru* de Montewl 
94300 V1NCENNES 

LAONERSA. 

> 175, av du Gêna al Ledac 
94780 MASON ALFORT 


AVENA STE 
Square Cdomba 
0P94 

95021 CERGY CEDEX 

UBRAJRE 
POCHOTHEQUE 
LECUT Rare 
Z rue de Staéngrad 
96120 ERMONÎ 










































































AU SOMMAIRE DES 
ANCIENS NUMEROS DE 


théorie 


hé«wic 


"Pour les seuls numéros encore 
disponibles en mai 1987* 

Numéros 

Essais de l'XL DOS. AUTOVERIF 
pour améliorer la fiabilité du char- 
| gement cassette. Essai de la cane B 
] E/S MAQECO. VOICE: ORIC 
parte dans interface. RENUM-OES- 
TRUC renumérabon et suppression 
de lignes Basic. Lee Intemip- 
tione : une horloge. Master-mlnd : 
jeu. ANADIS : analyse de dis¬ 
quettes au format MCROOISC. La 
Jasmln-Prlnter (Brother M 1009) à 
l'essai et recopie d’écran pour ce ne 
imprimante. 

Numéro 7 

BLURK'S : jeu. Editeur de cerec- 
tèree pour redéfinir le jeu de carac¬ 
tères . Calculs en langage ma¬ 
chine pour aller plus vite. Lecture 
et Ecriture de secteurs sur Jas¬ 
min ou comment réparer une dis¬ 
quette. Tour d'horizon des Moni- 
taura-Assembleurs du commerce. 
Le magnéto sans angoisse ou 
comment améliorer le chargement 
des cassettes. Essai du RANDOS. 
Essai du crayon optique. Recopie 
d'écran sur MCP 40. L'interface 
TVS. 

I Numéro 10 

Essai du modem TONIC. Le Basic 
Français. Utilitaires pour vous plaire 
(1). Modifications du MONTEUR 
1.0 de LORICIELS. CROCKY: jeu. 
Compte bancaire : gérez le sur 
MICRO-DISC (1). Compabbilité DTL 
2000 et JASMIN 

Numéro 11 

Hors-série rempli d'une mulbtude de 
programmes en tous genres. 

Numéro 12 

Ecrivez votre jeu d'aventure : COL- 
DITZ Le DTL 2000 ♦ un serveur 
pas cher. Schéma électronique de 


rORIC. Essai de la table graphique 
, GRAPHISCOP Le partage mé- 
moire de TORC. Ublitaires pour 
vous plaire (2). Un MonHeur- 
Asaembteur. Compte bancaire 
(suite et lin). 

Numéro 13 

Transfert du FORTH sur MICRO- 
DISC. TANDEM 13 un logiciel pour 
le DTL 2000. Jouez avec les cou¬ 
leurs de rORIC. Ublitaires pour vous 
plaire (3). Créer des fenêtres sur 
ORIC. MICRODtSC et JASMIN: 
ils communiquent City on Raid : 
jeu. 

Numéro 15 

Une Imprimerie à l'essai : la MT 
80S. Spirographe : rosaces et ara¬ 
besques. TRON les motos de lu¬ 
mière (jeu). Esssai de la carte 256 
couleurs de Microfutur, Editeur de 
secteurs sur Jasmin. MUSICORIC 
pour que FORIC-1 devienne musi- 
aen. Carte série pour liaison avec 
MINITEL. Educabf: le moteur à 4 
temps. Redéfinition de caractères 
pour EASYT EXT. 

Numéro 17 

Le TELESTRAT se présente. Trans¬ 
fert de récran TEXT en HIRES (1). 
Conversion du binaire en DATA. 
ORICTEL: logiciel d'application de 
la carte série Minitel. Recopie ra¬ 
pide sur Imprimante mode texte. 
Ecriture évoluée. LEONARO : utili¬ 
taire de dessin (1). Fiches de 
paye : comment calculer les sa¬ 
laires avec ORIC. Jacquenes de cas¬ 
settes pour GP 50 Catalogue 
amélioré sur Jasmin. 


Numéro 18 

Un drive 3"1/2 à Triphonie : 
fORIC devient orgue. Connaissez- 


vous les objets tractais ? Le 
Devin : chirologie ou jeu ? Un jeu : 
Frog Panic. Pour lister un program¬ 
me à partir du MINITEL (et de la 
carie série) : MUST. Accordez vos 
instrunents de musique avec Fré- 
quencamètre. Text-Hires (Un). Léo¬ 
nard (suite). Deux recopies d'é¬ 
cran : GP 550 et Brother Ml 009 
(Jasmin primer). Lister fEPROM du 
Microdisc. 

Numéro IB 

Léonard : lin de l'ublitaire création 
graphique. Modifications de FAT- 
MOS et du MICROOISC. Un mini- 
interpréteur. Protection du Hl- 
MEM. Le tri en langage machine. 
Jeu éducatif : EUROP'ORIC. En sa¬ 
voir plus sur le SEDORIC. Compte 
bancaire :gérez-le sur JASMIN. Uti¬ 
litaires pour vous plaire (4). 

Numéro 20 

CALCULATOR : banc d'essai - 
PUISSSANCE 4 jeu - Recopie d'é¬ 
cran pour FASTEXT 80 - Mini Inter¬ 
préteur Basic. 

Numéro 21 

Les interrupbons - Animation gra¬ 
phique en 3 D - Jeu : Singerie (1) - 
SEDUTIL pour mieux ubliser SEDO¬ 
RIC - Recopie page VIDEOTEX - 
Butter soft pour imprimante - Super 
recopie d'écran. 


Numéro 22 

Tout sur le VIA 6522 - GROS: 
caractères géants - MUSICORIC et 
JASMIN - Jeu : Singeries (2) - 
SWAP OVERLAY - Diétébque : 
mieux s'alimenter - Schéma de la 
carte contrôleur JASMIN - Compac¬ 
teur graphique - Animation gra¬ 
phique 3D. 


Numéro 23 

Educabf : TABLORIC. Print Formaté 

- String : commandes graphiques - | 
Sauvetage d'un programme - Cal¬ 
culs de FORIC - Trames et collages 

- Casse-briques - clipping. 

Numéro 24 

Chasse au bug - Astrologie et ordi¬ 
nateur - Singerie (fin) Calculs dans 
N - Dossier TELESTRAT - Mmi- 
Print : éditeur de banderolles - Dé¬ 
tection de sonnerie - Ecran 59 x 28 
caractères - Note - cale. 

Numéro 25 

Test ; le Jasmln-PC. Ces fichiers 
dont tout le monde parie - Ecriture 
stylée sur MCP 40 - Jeu de ta vie - 
Rem color - En savoir plus sur FT 
DOS - Data ♦ - ORIC à 2 ROM - 
MUSIC (1) 

Numéro 27 

Fenêtres — Simulation RS 232 par 
soft — TDK : transfert de disquette à 
cassette — ATMOS à Paris (2). 

Numéro 28 

ORIC Hippie - Tableau de bord - 
Surveillez votre poids — Les menus 
déroulants — Fractals — Tracé d'his 
togrammes en 3D (1). 

Numéro 29 

A vos mesures - Debug pour Jasmin 

- Sortie son stéréo - The car war — 
Moniteur pour TELESTRAT - Goto 
Label — Histogrammes (2). 

Numéro 30 

Structure du TELESTRAT — Don Jean 
et Dr Agon — QVC : 80 colonnes - 
Calculs en virgule flottante - Clavier 
turbo — Histogrammes 13). 

• 

Les articles et programmes rappelés 
ci-dessus ne forment que Fessentiel 
des différents numéros de THEORIC 
6tés. Les essais des différents logi¬ 
ciels, les trucs et astuces, etc. sont 
autant d'arguments qui devraient 
vous inciter à compléter votre collec¬ 
tion de THEORC. 
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L'auteur est un fervent passionné 
d'ORIC. Il a décortiqué avec soin les 
mécanismes des routines internes 
de rORIC-1 et de l'ATMOS. D’un 
contenu très dense, tout en restant 
à la portée des débutants, ces 
deux ouvrages proposent tour à 
tour des commentaires abondants 
sur le système interne, des exerci¬ 
ces et des programmes utilitaires 
mettant en application les principes 
acquis. 

Les prix publics de ces 2 tomes 
sont respectivement de 138 F et 
120 F. Nous sommes en mesure 
de vous les offrir à 99 F pièce 
ou,mieux, pour 149 F les 2 ! Une 
inestimable économie... 
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Deux livres indispensables pour mieux utili¬ 
ser les routines internes de l'ORIC-1 ou de 
l'ATMOS. 
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